Option Explicit
Private MouseNum As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseNum = Button
If MouseNum = 1 Then
Label1.Visible = True
Else
Label1.Visible = False
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MouseNum = 1 Then
Label1.Caption = "X=" & X & ",Y=" & Y
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！