Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
那 X Y就是鼠标的坐标
你可以加入
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X = Y Then
MsgBox "猪", vbOKOnly
End If
End Sub
哈哈哈哈哈哈哈哈哈哈