Dim Seleccionado
Dim SacarSeleccionado


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 4 And SacarSeleccionado = 1 Then
    SendKeys "~{BACKSPACE}~", False
End If
        
If Button = 2 Then
    If Seleccionado = 1 Then
        SendKeys "u", False
    ElseIf Seleccionado = 2 Then
        SendKeys "o", False
    End If
End If

End Sub


Private Sub Check1_Click()

If SacarSeleccionado = 0 Then
    SacarSeleccionado = 1
Else
    SacarSeleccionado = 0
End If

End Sub


Private Sub Option1_Click()

Seleccionado = 1
    
End Sub

Private Sub Option2_Click()

Seleccionado = 2

End Sub

Private Sub Option3_Click()

Seleccionado = 0

End Sub