Private Declare Function GetCursorPos Lib "user32" (ast As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim coord As POINTAPI
Private Sub Command1_Click()
q = GetCursorPos(coord)
Caption = "X=" & coord.x & ", Y=" & coord.y
End Sub |
| 