Import Infragistics.Controls.Barcodes
Private Sub Barcode_DataChanged (ByVal sender As System.Object,
ByVal e As DataChangedEventArgs)
Dim errorMessage = e.ErrorMessage
End Sub
Private Sub Barcode_ErrorMessageDisplaying (ByVal sender As System.Object, ByVal e As ErrorMessageDisplayingEventArgs)
Dim newData = e.NewData
End Sub