RE:Al pulsar dos teclas a la vez las detecte
'En un formulario crea cinco etiquetas con los siguientes caption
'Arriba,Abajo,Derecha, Izquierda,Enter
'Luego en el form
Option Explicit
Dim Pulsada(127) As Boolean ' Se crea una matriz de valores Boolean
'Lo que significa que podés configurar
'hasta 127 teclas
Dim Detener As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Pulsada(KeyCode) = True
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Pulsada(KeyCode) = False
End Sub
Private Sub Form_Load()
Me.Show
Detener = False
Do
lblArriba.Visible = Pulsada(vbKeyUp)
lblAbajo.Visible = Pulsada(vbKeyDown)
lblDerecha.Visible = Pulsada(vbKeyRight)
lblIzquierda.Visible = Pulsada(vbKeyLeft)
lblENTER.Visible = Pulsada(vbKeyReturn)
DoEvents ' es muy imortante para darle el control al sistema
Loop Until Detener
End Sub
Private Sub Form_Unload(Cancel As Integer)
Detener = True
End Sub