Creen que existen los extraterrestres??
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim x As Integer
Private Sub Timer1_Timer()
If GetAsyncKeyState(1) = -32767 Then
x = x +1
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox "hola"
End sub