Sub btnReadBarcode_Click
Dim bc As Barcode1D
lblInfo.Text = lblInfo.Text & " # " & "Click"
bc.initialize("")
If bc.IsInitialized Then
lblInfo.Text = lblInfo.Text & " # " & "Initialized"
If bc.open Then
lblInfo.Text = lblInfo.Text & " # " & "Opened"
Else
lblInfo.Text = lblInfo.Text & " # " & "NON Opened"
End If
lblBarcode.Text = bc.scan
If bc.close Then
lblInfo.Text = lblInfo.Text & " # " & "Closed"
Else
lblInfo.Text = lblInfo.Text & " # " & "NON Closed"
End If
lblInfo.Text = lblInfo.Text & " # " & "The End"
Else
lblInfo.Text = lblInfo.Text & " # " & "NOT initialized"
End If
End Sub