mouse move event

Du kan bruge ..
Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (ByRef lpPoint As POINTAPI) As Int32
...
... Denne structure skal ligge uden for din class
    Private Structure POINTAPI
        Dim x As Int32
        Dim y As Int32
    End Structure
....
.... I en procedure kan du bruge dette kald.
Dim pt As POINTAPI
Call GetCursorPos(pt)

Der findes mange eksempler på Google, hvis du søger på GetCursor.

Håber det kan hjælpe.