Private Sub ProcessEvent1(stEvent1 As String)
          If Screen.ActiveControl.Name = "BarkodPolje" Then
           BarkodPolje = stEvent1
           End If

End Sub