Vindue som følger musen

Hej alle sammen

Jeg kunne godt tænke mig, at lave et lille vindue, der er placeret nede under muse cursoren og som flytter med rundt på skærmen når man flytter musen.

Det lyder jo enkelt nok og jeg tænkte straks getCursorPos() og så er den hjemme men nej.

Min rutine ser ud som følger

1 form
1 timer Timer1 med interval 100

------------------------------------------
Private Declare Function GetCursorPos _
Lib \"user32\" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
x As Long
y As Long
End Type

Sub Timer1_Timer()
Dim pt32 As POINTAPI
Dim ptx As Long
Dim pty As Long

Call GetCursorPos(pt32)
ptx = pt32.x
pty = pt32.y

Call Me.Move(Left:=ptx, Top:=pty)
End Sub
------------------------------------------

Det virker også fint, forstået på den måde at formen flytter sig. Men den bevæger sig absolut ikke synkront med musens bevægelser og det virker lidt som om getCursorPos() og me.move regner i to forskellige måleenheder.
Jeg har forsøgt at sætte formens scalemode til flere forskellige måleenheder. Men det virker heller ikke.

Er der nogen gode idéer??

Hilsen
JiveFive