Finding cursor location relative to form...

May be the GetCursorPos API can help you...

Code:

---

Option Explicit
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
        X As Long
        Y As Long
End Type
Private pt As POINTAPI

Private Sub Command1_Clink()
GetCursorPos pt
Debug.Print ScaleX(pt.X, vbPoints, vbTwips) & ", " & ScaleY(pt.Y, vbPoints, vbTwips)
End Sub

---