VB identifica los botones izquierdo y derecho del mouse

Hay una variable de botón en el evento MouseDown. Cuando se presiona el botón derecho del mouse, el valor del botón es vbRightButton, cuando se presiona el botón izquierdo, vbRightButton y se presiona la rueda de desplazamiento es 4. Si sabe esto, puede realizar la función que mencionó. Agregue el siguiente código al evento Mousedown: if button = vbRightButton thenmsgbox "Presione el botón derecho" elseif button = vbLeftButton thenmsgbox "Presione el botón izquierdo" El código para determinar cuándo. Los botones izquierdo y derecho se sueltan al mismo tiempo es el siguiente: Option Explicit

Dim OldButton As Byte

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, _

Y como único)

Si OldButton + Button = 3 Entonces

MsgBox "Suelta los botones izquierdo y derecho del mouse al mismo tiempo'"

End If

OldButton = Botón

End Sub

Private Sub Form_MouseDown(Botón como entero, Mayús como entero, X como único, _

Y como único)

OldButton = 0

Fin Sub