mouse API

[fujilec]

problems for the mouse API...i declared this :

Dim Position As POINTAPI
Dim Mystring As String
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Dim PosX As Long
Dim PosY As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

but when i run, i have this problem (Invalid use of property) at the part shown below:

Private Sub cmddown_Click()
rs = SetCursorPos(Position.X, Position.Y + 15)
'MSComm1.Output = "d"
End Sub

may i knw the prob pls?