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

Vrijeme = Timer - Vrijeme
If Chr(KeyAscii) = "A" 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
Forms!frmEvidencija.Form!frmRealizacijaSub.SetFocus
MsgBox "Selektirana je subforma A"

End Select
Znak = 0
Vrijeme = 0
End Sub