birkaç ufak değişiklikle dosya aşağıdadır

Private Sub Resim0_Click()

Me.Metin10 = SaatBul ' SonDgr \ 60 & ":" & SonDgr Mod 60

End Sub



Private Sub Resim0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Const pi = 3.142857

    Const nCentreLeft = (7 * 567), nCentreUp = (7 * 567)

    XTan = X - nCentreLeft

    YTan = nCentreUp - Y

    Me.LblSaat.Caption = SaatBul

End Sub



Function SaatBul() As String

Dim SonDgr As Single

Dim Aci As Integer

SaatBul = ""

If YTan = 0 Then Exit Function

SonDgr = Atn(XTan / YTan) * 180 / 3.142857



If XTan > 0 And YTan < 0 Then Aci = 180

If XTan < 0 And YTan < 0 Then Aci = 180

If XTan < 0 And YTan > 0 Then Aci = 360



SonDgr = 2 * (Aci + SonDgr)

SaatBul = IIf(SonDgr \ 60 = 0, 12, SonDgr \ 60) & ":" & SonDgr Mod 60

End Function

---

tam olarak kaçtayken 0'a bölme hatası veriyor?
kodu düzelttim dilerim hata vermez
dosya 12. mesajdaki  AnalogSaat_hy2 dosyasında

---