How to get the mouse pointer position-CodePudding

I just learning vb, teachers help me take a look at this:

 Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 
Private Type POINTAPI 
X As Long 
Y As Long 
End Type 

Private Sub Timer1_Timer () 
Dim lpPonit As POINTAPI 
The GetCursorPos lpPonit 
Print lpPoint. X 
End Sub

After the operation said lack of object, real-time error 424? Click the stop after debugging in print lpPoint. X, what reason? Thank you very much!!

CodePudding user response:

I'm sorry, settled,

CodePudding user response:

Give me

CodePudding user response: