README.md

Description

See code name.

More Info

Submitted On
By	Aimee Bailey
Level	Beginner
User Rating	4.7 (14 globes from 3 users)
Compatibility	VB 6.0
Category	Graphics
World	Visual Basic
Archive File

Source Code

'Hide the following code in a module someware!
Private Declare Function GetCursorPos Lib _
  "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
  x As Long
  y As Long
End Type
'------------------------------
Public Function GetPos(Optional x As Single _
  = 0, Optional y As Single = 0)
Dim Pos As POINTAPI
Dim retVal As Boolean
 retVal = GetCursorPos(Pos)
 x = Pos.x
 y = Pos.y
End Function
' Put the following into the form of your
' choice and then create a timer called
' 'Timer1' and remember to set the interval
' to something like '10'
'-----------------------------
Private Sub Timer1_Timer()
Dim x As Single
Dim y As Single
 GetPos x, y
 Me.Caption = x & "x" & y
End Sub