' СОРС ЗА ФОРМАТА

'Таймер с интервал 50 мили секунди

Private Sub Timer1_Timer()

Timer1.Interval = 50

For iKey = 0 To 255 ' При всяко стартиране на таймера проверява за съвпадение на код от 0 до 255

If GetAsyncKeyState(iKey) Then ' При съвпадение прави следното

Timer1.Interval = 200 ' Увеличава интервала на таймера до 200, защото клавиша се връща в горно положение бавно

Label1.Caption = "Последно натиснатия бутон е с код => " & iKey ' Сменя надписа в етикета Label1

Text1.SelText = Chr(iKey) ' Записва в Text1 знака съответстващ на прихванатия код

End If

Next

' Когато искаме събитие при конкретен известен бутон, то проверяваме само и единствено за него

If GetAsyncKeyState(112) Then MsgBox "Сработен бутон F1", vbInformation, "Пример за прихващане на бутон F1"

End Sub

' СОРС ЗА МОДУЛА

' Декларация на публична АПИ функция

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer