Option Compare Database
Option Explicit
Dim Vrijeme
Dim Znak As Integer


Private Sub Form_KeyPress(KeyAscii As Integer)
If Vrijeme = 0 Then
Vrijeme = Timer
End If

Vrijeme = Timer - Vrijeme
If Chr(KeyAscii) = "A" Or Chr(KeyAscii) = "D" Or Chr(KeyAscii) = "K" Then
    If Vrijeme < 0.5 Then
    Vrijeme = Timer
    Znak = Znak + KeyAscii
    Else
    Znak = 0
    Vrijeme = 0
    End If
Else
    Znak = 0
    Vrijeme = 0
End If
End Sub

Private Sub Form_Timer()

Select Case Znak

Case 97, 65
MsgBox "pritisnuto A"
Case 100, 68
MsgBox "pritisnuto D"
Case 107, 75
MsgBox "pritisnuto K"
Case 197, 133
MsgBox "pritisnuto AD"
Case 204, 140
MsgBox "pritisnuto AK"
Case 207, 143
MsgBox "pritisnuto DK"
Case 304, 208
MsgBox "pritisnuto ADK"
End Select
Znak = 0
Vrijeme = 0
End Sub