Nuevamente muchas gracias por tus respuestas y tu atención!!
El código está bien y funciona pero no es lo que buscaba
.
El error que tenia arriba es que cuando elijo del ComboBox la "B" y en el TextBox1 presiono la B sale el MsgBox pero ahora si selecciono algún F o Space o NumPad0 no salia el MsgBox.
Con esta parte de tu código lo solucioné:
Dim N As String
N = ""
If e.KeyCode = Keys.F1 Or e.KeyCode = Keys.NumPad0 Or e.KeyCode = Keys.Space Then
Select e.KeyCode
Case 112 : N = "F1"
Case 96 : N = "NupPad0"
Case 32 : N = "Espacio"
End Select
MsgBox("Ha presionado " & N)
End If
Pero el problema ahora es que sin seleccionar nada o seleccionando cualquier tecla del ComboBox, al apretar F1, NumPad0 o Space me sale el MsgBox y solo tendría que aparecer el MsgBox si la tecla seleccionada del ComboBox es apretada en el TextBox.
Es medio confuso pero intente ser lo mas claro posible. Si no entendés decime que trato de ser mas claro.
He intentado con este código pero no logre hacerlo funcionar:
Private Sub Textbox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
Dim N As String
N = ""
If ComboBox1.Text = e.KeyCode = Keys.F1 Or ComboBox1.Text = e.KeyCode = Keys.NumPad0 Or ComboBox1.Text = e.KeyCode = Keys.Space Then
Select Case e.KeyCode
Case 112 : N = "F1"
Case 96 : N = "NupPad0"
Case 32 : N = "Espacio"
End Select
MsgBox("Ha presionado " & N)
End If
End Sub
Mostrar Mensajes
!
. Ahora tengo otro problema el cual es que al añadir F's o numeros del NumPad o teclas como Space o RControl no se sale el MsgBox.