Case of 

\ (Form event=On Load )

C_LONGINT(mouseXcoord, mouseYcoord)

SET TIMER(15)

\ (Form event=On Timer )

C_LONGINT($mouseButton)

GET MOUSE(mouseXcoord, mouseYcoord,$mouseButton)

End case