Eventos del mouse

Existen 3 tipos de eventos del mouse en Visual Basic

1. MouseDown, ocurre cuando el usuario da clic a cualquier botón del mouse.
2. MouseUp, ocurre cuando el usuario libera cualquier botón del mouse.
3. MouseMove, ocurre cuando el usuario mueve el mouse.

Cada uno de los eventos anteriores reciben 4 parámetros:

1. button, regresa un valor que permite identificar a que botón se le dio clic: vbLeftButton, vbRightButton, vbMiddleButton
2. shift, regresa un valor que permite identificar que tecla o teclas se mantienen presionadas: vbShiftMask = SHIFT, vbCtrlMask = CTRL, vbAlttMask = ALT, posibles combinaciones CTRL + SHIFT = (2+1) = 3
3. x, regresa la posición actual X, relativa a la esquina superior izquierda
4. y, regresa la posición actual Y, relativa a la esquina superior izquierda

   Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   sbMouse.SimpleText = "Coordenadas del Mouse (" + CStr(X) + ", " + CStr(X) + ")"
  End Sub

  Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = vbRightButton Then
       DatosUsuario.PopupMenu mnuOtro
   End If
   Dim Msg
   Select Case Button
       Case vbRightButton
           Msg = "Botón derecho liberado"
       Case vbMiddleButton
           Msg = "Botón medio liberado"
       Case vbLeftButton
           Msg = "Botón izquierdo liberado"
   End Select
   Select Case Shift
       Case vbShiftMask
           Msg = Msg & " + Shift"
       Case vbCtrlMask
           Msg = Msg & " + Ctrl"
       Case vbAltMask
           Msg = Msg & " + Alt"
       Case vbShiftMask + vbAltMask
           Msg = Msg & " + Shift + Alt"
   End Select
   sbMouse.SimpleText = Msg
  End Sub