This example uses the CompressionType property to determine the compression type of the image specified in the Image property.
Private Sub cmdCompType_Click()
'Reads the CompressionType property to determine the
'compression type of the image specified in the Image
'property.
Dim strImgCompType As String
'Read the CompressionType and translate the value to a
'corresponding string.
Select Case ImgEdit1.CompressionType
Case 0
strImgCompType = "Unknown"
Case 1
strImgCompType = "No Compression"
Case 2
strImgCompType = "Group3(1D)"
Case 3
strImgCompType = "Group3(Modified Huffman)"
Case 4
strImgCompType = "PackBits"
Case 5
strImgCompType = "Group4(2D)"
Case 6
strImgCompType = "JPEG"
Case 7
strImgCompType = "RBA"
Case 8
strImgCompType = "Group3(2D)"
Case 9
strImgCompType = "LZW"
End Select
'Display the compression type on a form for
'informational purposes, or to
'allow modifications.
frmInfo.lblImgInfo(0).Caption = strImgCompType
End Sub