Private Sub ProcessEvent1(stEvent1 As String)                               ' Linija 1
BarkodPolje = stEvent1
End Sub