Function GetTiffInfo(FileName As String) As TiffInfo
    Dim objShell
    Dim objFolder
    Dim temp As String
    Dim i As Integer
    GetTiffInfo.Size = ""
    GetTiffInfo.Pages = ""
    GetTiffInfo.Dimension = ""
    'On Error GoTo TiffEnd
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.NameSpace(GetFileDir(FileName))
    If (Not objFolder Is Nothing) Then
        Dim objFolderItem
        Set objFolderItem = objFolder.ParseName(GetFileName(FileName))
        If (Not objFolderItem Is Nothing) Then
            GetTiffInfo.Size = objFolder.GetDetailsOf(objFolderItem,  1 ) 'size of file
            GetTiffInfo.Pages = objFolder.GetDetailsOf(objFolderItem,  13 ) 'Pages
            GetTiffInfo.Dimension = objFolder.GetDetailsOf(objFolderItem,  26 ) 'Dimension
            'temp = ""
           ' For i = 1 To 100
           '     temp = temp & i & "=" & objFolder.GetDetailsOf(objFolderItem, i) & " "
           'Next i
           'MsgBox temp
        End If
        Set objFolderItem = Nothing
    End If
    Set objFolder = Nothing
    Set objShell = Nothing
TiffEnd:
End Function

    If Not (PixelFormat = PixelFormat1bppIndexed) Then 'зачем тонировать если итак b/w
        SetStretchBltMode hdcDst1, HALFTONE
        SetBrushOrgEx hdcDst1,  0 ,  0 , tPt
    End If

    With bmiDst.bmiHeader
...
        If PixelFormat = PixelFormat1bppIndexed Then
            .biBitCount =  1 
        Else
            .biBitCount =  24 
        End If

    m_mfi.LoadFromFile strFile

    m_mfi.LoadFromFile strFile

Public Function showEXIFTags(ByVal sFilename As String) As String
    Dim retStatus As Status
    Dim m_img As Long
    Dim PropertyCount As Long
    Dim prop As GDIPPropertyItem
    Dim i As Long
    Dim sItem As String
    Dim j As Long
    Dim v As Variant
    Dim s As String
    Dim strFull As String
    
    strFull = ""
    
    retStatus = Execute(StartUpGDIPlus(GdiPlusVersion))
    If retStatus = OK Then
        GdipInitialized = True
    Else
        showEXIFTags = "GDI Problem!"
        Exit Function
    End If
    retStatus = Execute(GdipLoadImageFromFile(StrPtr(sFilename), m_img))
    If retStatus = OK Then
        Call Execute(GdipGetPropertyCount(m_img, PropertyCount))
        For i =  1  To PropertyCount
            Set prop = PropertyItem(i, PropertyCount, m_img)
            sItem = CStr(i) & " " & prop.Name & " "
      
            Select Case prop.ItemType
            Case PropertyTagTypeASCII
                sItem = sItem & prop.ParseString()
         
            Case PropertyTagTypeRational, PropertyTagTypeSRational
                For j =  1  To prop.ValueCount
                    If (j >  1 ) Then
                        sItem = sItem & ", "
                    End If
                    v = prop.ParseRational(j)
                    'sItem = sItem & v(1) & "/" & v(2)
                    sItem = sItem & CStr(v( 1 ) / v( 2 ))
                Next j
         
            Case PropertyTagTypeLong
                For j =  1  To prop.ValueCount
                    If (j >  1 ) Then
                        sItem = sItem & ", "
                    End If
                sItem = sItem & prop.ParseLong(j)
            Next j
      
            Case PropertyTagTypeShort
                For j =  1  To prop.ValueCount
                    If (j >  1 ) Then
                        sItem = sItem & ", "
                    End If
                    sItem = sItem & prop.ParseShort(j)
                Next j
      
            Case PropertyTagTypeUndefined
                ReDim b( 0  To prop.ValueCount -  1 ) As Byte
                prop.GetData b
                For j =  1  To prop.ValueCount -  1 
                    If (j >  1 ) Then
                        sItem = sItem & " "
                    End If
                    s = Hex(b(j -  1 ))
                    If Len(s) =  1  Then s = "0" & s
                    sItem = sItem & s
                Next j
      
            Case Else
                sItem = sItem & prop.ItemType & " " & prop.length
            End Select
            If Right(sItem,  1 ) = Chr( 0 ) Then 'убрать нулевой символ на конце
                sItem = Left(sItem, Len(sItem) -  1 )
            End If
            strFull = strFull & sItem & vbCrLf
        Next i
    Else
        strFull = "Not a graphic file!"
    End If
    showEXIFTags = strFull
    retStatus = Execute(GdipDisposeImage(m_img))
    If GdipInitialized = True Then
        retStatus = Execute(ShutdownGDIPlus)
    End If
End Function