Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Type POINTAPI
tLng_Xloc As Long
tLng_YLoc As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub txtTextBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseLocation As POINTAPI
GetCursorPos MouseLocation
MsgBox "Cursor at " & Trim(MouseLocation.tLng_Xloc) & ", " & Trim(MouseLocation.tLng_YLoc)
End Sub