Use the GetCursorPos API!

Here's the code, you should paste it into the form, right before any other code you have:

Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type
Now, I was trying to get my function to work, but it doesn't... I'm going now on holidays so don't expect an answer soon.