在鼠标事件中
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Print "左键"
ElseIf Button = 2 Then
Print "右键"
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Print "左键"
ElseIf Button = 2 Then
Print "右键"
End If
End Sub