14/01/2006, 02:42
|
| | | Fecha de Ingreso: abril-2005
Mensajes: 351
Antigüedad: 20 años Puntos: 3 | |
| Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(120) = -32767 Then
MsgBox "hola mundo"
End If
End Sub |