Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF2   
           Call VidiProces
Case vbKeyTab          
           Forms!frmEvidencija!frmRealizacijaSub.SetFocus
End Select
End Sub