Timer1_Timer()
NewKeyState = GetAsyncKeyState
If NewKeyState<>OldKeyState Then
'Обработка события
If NewKeyState<0 Then DownProcedure
If NewKeyState=0 Then UpProcedure
End If
OldKeyState=NewKeyState
End Sub
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 2