Public Class frm_BTfreig
 
    Private ReadOnly accessLayer As GuiAccessLayer
 
Private Sub frm_BTfreig_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        AddHandler BarcodeDecodingDevice.Instance.NewTypeDecoded, AddressOf _
        Instance_NewTypeDecoded
        AddHandler BarcodeDecodingDevice.Instance.TriggerKeyPressed, AddressOf _
        Instance_TriggerKeyPressed
        AddHandler BarcodeDecodingDevice.Instance.TriggerKeyReleased, AddressOf _
        Instance_TriggerKeyReleased
        AddHandler BarcodeDecodingDevice.Instance.DecodeTimeout, AddressOf _
        Instance_DecodeTimeout
 
 
        Dim settings As DecodingDeviceSettings = _
          BarcodeDecodingDevice.Instance.DecodingDeviceSettings
        settings.RemoveAllDecodingTypes()
 
        Barcode_1D.Code128.MinLength = 8
        Barcode_1D.Code128.MaxLength = 20
        settings.AddDecodingType(Barcode_1D.Code128)
 
        BarcodeDecodingDevice.Instance.DecodingDeviceSettings = settings
        BarcodeDecodingDevice.Instance.Enable()
 
        Me.Button1.Focus()
 
 
 
    End Sub
 
    Private Sub Instance_DecodeTimeout(ByVal source As Object)
        Settings.PlaySystemSound(SystemSound.Exclamation)
        Timeout()
 
 
    End Sub
 
    Private Sub Instance_TriggerKeyReleased(ByVal source As Object)
        BarcodeDecodingDevice.Instance.StartDecoding()
    End Sub
 
    Private Sub Instance_TriggerKeyPressed(ByVal source As Object)
        BarcodeDecodingDevice.Instance.Aim()
 
    End Sub
 
    Private Sub Instance_NewTypeDecoded(ByVal source As Object, ByVal e As _
      HoeftUndWessel.CeLib.Device.IODevices.DecodingDevices.Events.DecodingEven_
      tArgs)
 
        Settings.PlaySystemSound(SystemSound.Ok)
 
        Me.accessLayer.UpdateControlText(Me.Label2, e.DecodedString)
 
    End Sub
 
 
    Private Sub Timeout()
        BarcodeDecodingDevice.Instance.Disable()
        BarcodeDecodingDevice.Instance.Enable()
    End Sub
 
 
 
    Public Sub New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
        Me.accessLayer = New GuiAccessLayer(Me)
 
    End Sub
 
 
End Class

Die Zeit ist der größte Feind des Menschen.

Zitat:

Warum wird das Event auf immer auf jeder Form ausgeführt? Ich habe die schon umbenannt damit die nicht alle gleich heißen aber das hat auch nichts gebracht. Der Code ist auf jeder Form identisch! So wie ich ihn gepostet habe.