GetImageInformation Example for Visual Basic

Private Sub ViewInfo_Click()
    Dim msg As String
    LEADDICOM1.GetImageInformation 0
    msg = "Compression: " & CStr(LEADDICOM1.ImageInfo.Compression) & Chr(13)
& Chr(10)
    msg = msg + "Photometric: " & CStr(LEADDICOM1.ImageInfo.Photometric) &
" - " & LEADDICOM1.ImageInfo.PhotometricString & Chr(13) & Chr(10)
    msg = msg + "Rows x Columns: " & CStr(LEADDICOM1.ImageInfo.Rows) & " x "
& LEADDICOM1.ImageInfo.Columns & Chr(13) & Chr(10)

    msg = msg + "Bits Allocated: " &
CStr(LEADDICOM1.ImageInfo.BitsAllocated) & Chr(13) & Chr(10)
    msg = msg + "Bits Stored: " & CStr(LEADDICOM1.ImageInfo.BitsStored) &
Chr(13) & Chr(10)
    msg = msg + "High Bit: " & CStr(LEADDICOM1.ImageInfo.HighBit) & Chr(13)
& Chr(10)
    msg = msg + "Pixel Representation: " &
CStr(LEADDICOM1.ImageInfo.PixelRepresentation) & Chr(13) & Chr(10)
    msg = msg + "Planar Configuration: " &
CStr(LEADDICOM1.ImageInfo.PlanarConfiguration) & Chr(13) & Chr(10)
    msg = msg + "ResolutionX: " & CStr(LEADDICOM1.ImageInfo.ResolutionX) &
Chr(13) & Chr(10)
    msg = msg + "ResolutionY: " & CStr(LEADDICOM1.ImageInfo.ResolutionY) &
Chr(13) & Chr(10)
    msg = msg + "SmallestImagePixelValue: " &
CStr(LEADDICOM1.ImageInfo.SmallestImagePixelValue) & Chr(13) & Chr(10)
    msg = msg + "SmallestImagePixelValueFlag: " &
LEADDICOM1.ImageInfo.SmallestImagePixelValueFlag & Chr(13) & Chr(10)
    msg = msg + "LargestImagePixelValue: " &
CStr(LEADDICOM1.ImageInfo.LargestImagePixelValue) & Chr(13) & Chr(10)
    msg = msg + "LargestImagePixelValueFlag: " &
LEADDICOM1.ImageInfo.LargestImagePixelValueFlag & Chr(13) & Chr(10)
    msg = msg + "RedEntries: " & CStr(LEADDICOM1.ImageInfo.RedEntries) &
Chr(13) & Chr(10)
    msg = msg + "RedFirst: " & CStr(LEADDICOM1.ImageInfo.RedFirst) & Chr(13)
& Chr(10)
    msg = msg + "RedBits: " & CStr(LEADDICOM1.ImageInfo.RedBits) & Chr(13) &
Chr(10)
    msg = msg + "GreenEntries: " & CStr(LEADDICOM1.ImageInfo.GreenEntries) &
Chr(13) & Chr(10)
    msg = msg + "GreenFirst: " & CStr(LEADDICOM1.ImageInfo.GreenFirst) &
Chr(13) & Chr(10)
    msg = msg + "GreenBits: " & CStr(LEADDICOM1.ImageInfo.GreenBits) &
Chr(13) & Chr(10)
    msg = msg + "BlueEntries: " & CStr(LEADDICOM1.ImageInfo.BlueEntries) &
Chr(13) & Chr(10)
    msg = msg + "BlueFirst: " & CStr(LEADDICOM1.ImageInfo.BlueFirst) &
Chr(13) & Chr(10)
    msg = msg + "BlueBits: " & CStr(LEADDICOM1.ImageInfo.BlueBits) & Chr(13)
& Chr(10)
    msg = msg + "PaletteEntries: " &
CStr(LEADDICOM1.ImageInfo.PaletteEntries) & Chr(13) & Chr(10)
    msg = msg + "PaletteFirst: " & CStr(LEADDICOM1.ImageInfo.PaletteFirst) &
Chr(13) & Chr(10)
    msg = msg + "BitsPerPixel: " & CStr(LEADDICOM1.ImageInfo.BitsPerPixel) &
Chr(13) & Chr(10)
    msg = msg + "Gray: " & LEADDICOM1.ImageInfo.Gray & Chr(13) & Chr(10)
    msg = msg + "Frames: " & CStr(LEADDICOM1.ImageInfo.Frames) & Chr(13) &
Chr(10)

    MsgBox msg
End Sub