Private Sub frm_Login_Closing(ByVal sender As Object, ByVal e As _
      System.ComponentModel.CancelEventArgs) 
    Handles MyBase.Closing
        'Scanner wieder freigeben
        '
        If User.Hardware = "HuW" Then
            Try
                BarcodeDecodingDevice.Instance.Disable()
                BarcodeDecodingDevice.Instance.Dispose()
 
            Catch ex As Exception
 
            End Try
        Else
            bcr.Dispose()
 
        End If
 
    End Sub