Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim Seleccion As Integer
    If Button = 4 Then
        Seleccion = List1.List(List1.ListIndex)
        MsgBox Seleccion
    End If
End Sub