Musens position på skærmen

Jeg laver et program hvor man skal kunne klikke på et label og derefter flytte det rundt på skærmen. Til dette har jeg brug for at hente musens position på skærmen. Jeg bruger metoden angivet i dette spørgsmål:
http://www.eksperten.dk/spm/113767
Det virker fint bortset fra at Y-værdien altid er nul. Hvad kan der være gået galt?

Modul1:
Type POINTAPI \' This holds the logical cursor information
      X As Integer
      Y As Integer
End Type

Declare Sub GetCursorPos Lib \"User32\" (lpPoint As POINTAPI)

Form1:

Private Sub Timer1_Timer()
Dim rect As POINTAPI
Call GetCursorPos(rect)
Label1.Left = rect.X*10
Label1.Top = rect.Y
End Sub

Timeren aktiveres når man trykker på Label1 og deaktiveres når man slipper knappen.