Private Sub goster()

    Dim SonDgr As Single

    Dim Aci As Integer

    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)

    Me.Metin20 = SonDgr \ 60 & ":" & SonDgr Mod 60

End Sub



Private Sub Resim0_Click()

    Me.Metin21 = Me.Metin20

End Sub



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

    Const pi = 3.142857

    Const nCentreLeft = (840), nCentreUp = (840)

    XTan = X - nCentreLeft

    YTan = nCentreUp - Y

    goster

End Sub

böyle olsa mouse gezerken kaç olduğu görülür tıklatıncada değeri kutuya yazar
ama bazen şu satır

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

divizion by zero hatasına düşüyor