Обратная сторона

Как узнать какие кнопки нажаты на мышке?

' Как узнать какие кнопки нажаты на мышке?
' для работы необходимо добавить текстовое поле Text1

Private Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As KeyCodeConstants) As Integer

Public Function MButtonDown(btButton As Byte) As Boolean
   Select Case btButton
   Case Is = 1
   MButtonDown = CBool(GetKeyState(vbKeyLButton) And &H8000)
   Case Is = 2
   MButtonDown = CBool(GetKeyState(vbKeyRButton) And &H8000)
   Case Is = 3
   MButtonDown = CBool(GetKeyState(vbKeyMButton) And &H8000)
   End Select
End Function

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If MButtonDown(1) Then Text1.Text = "Левая клавиша нажата!"
   If MButtonDown(2) Then Text1.Text = "Правая клавиша нажата!"
   If MButtonDown(3) Then Text1.Text = "Средняя клавиша нажата!"
End Sub

Какие кнопки нажаты на мышке (1 661 байт)