Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As _
  Long 
 
Private Type POINTAPI
  x As Long 
  y As Long 
End Type 
 
Dim CP As POINTAPI 
 
Private Sub get_x_y_pos() 
 Dim xpos as Long
 Dim ypos  as Long
 
  GetCursorPos CP 
  xpos = CP.x 
  ypos = CP.y 
End Sub