GetCursorPos()

Hej

Jeg har et problem med at kalde GetCursorPos-funktionen... Nedenstående eksempel er fra MSDN, så jeg går udfra at syntaks osv. er iorden...

---
Type POINTAPI \' This holds the logical cursor information
      x As Integer
      y As Integer
  End Type

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

Sub Timer1_Timer ()
      Dim rect As POINTAPI
      \' Get the current mouse cursor coordinates:
      Call GetCursorPos(rect)
      FORM1.Cls
      \' Print out current position on the form:
      Print \"Current X = \" & rect.x
      Print \"Current Y = \" & rect.y
  End Sub
---

Problemet er, at når jeg kalder Timeren går programmet ned med et kæmpe brag (... Hukommelsen kunne ikke \"read\"). Jeg har testet på en anden maskine, der gik den også ned, denne gang med en Ulovlig handling. (Begge maskiner Win2000).

Er der noget galt med koden, eller hvor dælen ligger fejlen?