Timer1_Timer()
NewKeyState = GetAsyncKeyState
If NewKeyState<>OldKeyState Then
'Обработка события
If NewKeyState<0 Then DownProcedure
If NewKeyState=0 Then UpProcedure
End If
OldKeyState=NewKeyState
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6