在线等：（VB）怎样读取鼠标所指点的坐标？

MOUSEMOVE MOUSEDOWN事件的X y参数就是鼠标的坐标

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim p As POINTAPI

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
GetCursorPos p
Text1.Text = p.x
Text2.Text = p.y
End Sub

窗体和控件有Mouse_Move事件，里面有两个参数：X,Y.这两个参数就是鼠标的坐标。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub

把它分成2道题来写吧,看起才明确
(1)只需弄一个标签label1,代码如下
Private Sub Form_Load()
Label1.Caption = ""
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Move X, Y
Label1.Caption = X & "," & Y
End Sub

(2)只需弄一个标签label1,代码如下
Private Sub Form_Load()
Label1.Caption = ""