hola como estan como pueden ver lo he hecho con las teclas E,F,D,S en vez de las teclas de direcciones jeje es que la verdad no le entendi al sendkeys gracias por sus ayuda a todos
muchas gracias badbyte-k
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 68 Then
Out &H378, 1
MsgBox ("atras")
End If
If KeyAscii = 69 Then
Out &H378, 2
MsgBox ("adelante")
End If
If KeyAscii = 70 Then
Out &H378, 4
MsgBox ("derecha")
End If
If KeyAscii = 83 Then
Out &H378, 8
MsgBox ("izquierda")
End If
End Sub
muchas gracias badbyte-k
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 68 Then
Out &H378, 1
MsgBox ("atras")
End If
If KeyAscii = 69 Then
Out &H378, 2
MsgBox ("adelante")
End If
If KeyAscii = 70 Then
Out &H378, 4
MsgBox ("derecha")
End If
If KeyAscii = 83 Then
Out &H378, 8
MsgBox ("izquierda")
End If
End Sub