Mouse Pos Relative to The form..

[DiGiTaIErRoR]

I was feeling nice:

Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Type PointAPI
        X As Long
        Y As Long
End Type

Private Pos As PointAPI

Private Sub Timer1_Timer()
GetCursorPos Pos
Caption = Pos.X - (Left / Screen.TwipsPerPixelX) & "," & Pos.Y - (Top / Screen.TwipsPerPixelY)
End Sub

By the way, you can put all that in Form1, you don't need a bas when you declare as Private.