dosyanıza metin kutusu ekleyip aşağıdaki kodları eklerseniz isteğiniz olur bence

Dim XTan, YTan As Long



Private Sub Resim0_Click()

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.Metin10 = 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

End Sub