RosettaCodeData/Task/Mouse-position/Visual-Basic/mouse-position-1.vb
2023-07-01 13:44:08 -04:00

5 lines
192 B
VB.net

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'X and Y are in "twips" -- 15 twips per pixel
Me.Print "X:" & X
Me.Print "Y:" & Y
End Sub