' Returns an information about ValueItem type.
Private Function GetValueItemType(info As IBarcodeInfo, _
                                  item As IValueItem) As String
    Select Case info.BarcodeType
        Case BarcodeType.PDF417, BarcodeType.PDF417Compact
            Return DirectCast(item, IPDF417ValueItem).Mode.ToString()

        Case BarcodeType.DataMatrix
            Return DirectCast(item, IDataMatrixValueItem).Mode.ToString()
       
        Case BarcodeType.QR
            Return DirectCast(item, IQRValueItem).Mode.ToString()
    End Select
    If TypeOf item Is TextValueItem Then
        Return "Text"
    End If
    If TypeOf item Is ByteValueItem Then
        Return "Byte"
    End If
    Return item.GetType().ToString()
End Function

' Returns an information about ValueItem type.
Private Function GetValueItemType(item As ValueItemBase) As String
    If TypeOf item Is ECICharacterValueItem Then
        Return "ECI character"
    End If
    If TypeOf item Is DataMatrixMacroCharacter Then
        Return "Macro character"
    End If
    If TypeOf item Is DataMatrixTextValueItem Then
        Return DirectCast(item, DataMatrixTextValueItem).Mode.ToString()
    End If
    If TypeOf item Is IQRValueItem Then
        Return DirectCast(item, IQRValueItem).Mode.ToString()
    End If
    Return item.DataType.ToString()
End Function