VB获取鼠标指针坐标，在窗口中适时显示鼠标坐标，移动鼠标适时显示坐标信息，是计算鼠标所经过点的像素值，以下代码是关键代码：

　　Private Sub Timer1_Timer()

　　 Dim point As POINTAPI

　　 GetCursorPos point 获取鼠标位置

　　 Label1.Caption = "当前鼠标坐标：" & point.x & " , " & point.y

　　End Sub-VB to get the coordinates of the mouse pointer, timely mouse coordinates displayed in the window, move the mouse to display the coordinate information in a timely manner, the point through which the mouse is calculated pixel values​ ​ , the following code is the key to the code:

Private Sub Timer1_Timer ()

Dim point As POINTAPI

GetCursorPos point　to get the mouse position

Label1.Caption = "current mouse coordinates:" & point.x & "," & point.y

End Sub