langs a-z

Task/Mouse-position/Visual-Basic/mouse-position-1.vb

@@ -0,0 +1,5 @@
+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

Task/Mouse-position/Visual-Basic/mouse-position-2.vb

@@ -0,0 +1,16 @@
+Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
+
+Private Type POINTAPI
+    'X and Y are in pixels, with (0,0) being the top left corner of the primary display
+    X As Long
+    Y As Long
+End Type
+
+Private Pt As POINTAPI
+
+Private Sub Timer1_Timer()
+    GetCursorPos Pt
+    Me.Cls
+    Me.Print "X:" & Pt.X
+    Me.Print "Y:" & Pt.Y
+End Sub