Predmet:Re: Bar kod čitac i SetFocus

---

Dim Provjera as Boolean
Private Sub ProcessEvent1(stEvent1 As String)
if provjera=true then
BarkodPolje = stEvent1
endif
End Sub

Private Sub ProcessEvent1_Enter()
Provjera = True
End Sub

Private Sub ProcessEvent1_Exit(Cancel As Integer)
Provjera = False
End Sub

---