Public Sub SaveMultiFrameAs1bppTIFFfax( _
   ByVal FileName As String, _
   Optional ByVal startFrame As Long =  0 , Optional ByVal endFrame As Long =  0 , _
   Optional ByVal DpiX As Single =  0 , Optional ByVal DpiY As Single =  0 , _
   Optional ByVal eTifCompression As TifCompressionType = TiffCompressionNone)

    With bmiDst.bmiHeader
        .biSize = LenB(bmiDst.bmiHeader)
        If DpiX =  204  And DpiY =  196  Then
            .biWidth =  1728  'nSrcWidth
            .biHeight =  2340  'nSrcHeight * dHeightScale
        ElseIf DpiX =  204  And DpiY =  98  Then
...
        End If
        .biPlanes =  1 
        .biBitCount =  1 
        .biCompression = BI_RGB
    End With
    With bmiDst.bmiColors( 1 )
        .rgbBlue =  255 
        .rgbGreen =  255 
        .rgbRed =  255 
    End With
    hbmDst = CreateDIBSection( 0 , bmiDst, DIB_RGB_COLORS, pBits,  0 ,  0 )
 
    hdcDst = CreateCompatibleDC( 0 )
    hbmOldDst = SelectObject(hdcDst, hbmDst)

    With bmiDst.bmiColors( 1 )
        .rgbBlue =  255 
        .rgbGreen =  255 
        .rgbRed =  255 
    End With

    With bmiDst.bmiColors( 0 )
        .rgbBlue =  255 
        .rgbGreen =  255 
        .rgbRed =  255 
    End With

    With bmiDst.bmiColors( 0 )
        .rgbBlue =  255 
        .rgbGreen =  255 
        .rgbRed =  255 
    End With
    With bmiDst.bmiColors( 1 )
        .rgbBlue =  0 
        .rgbGreen =  0 
        .rgbRed =  0 
    End With

    PatBlt hdcDst,  0 ,  0 , bmiDst.bmiHeader.biWidth, bmiDst.bmiHeader.biHeight, WHITENESS 'красим белым т.к. он гад черный
    picSrc.Render CLng(hdcDst),  0 , _
       CLng(bmiDst.bmiHeader.biHeight - (bmiDst.bmiHeader.biHeight - picSrc.Height * bmiDst.bmiHeader.biWidth / picSrc.Width) /  2 ), _
       CLng(bmiDst.bmiHeader.biWidth), -CLng(picSrc.Height * bmiDst.bmiHeader.biWidth / picSrc.Width), _
        0 &,  0 &, CLng(picSrc.Width), CLng(picSrc.Height), ByVal  0 &
ну и т.д.

        retStatus = Execute(GdipCreateFromHDC(Picture1.hdc, lngGraphics))

Private Sub CommandRotate_Click()
    Dim retStatus As Long
    Dim lngGraphics As Long
    Dim lBitmap As Long
    Dim sngWidth As Single
    Dim sngHeight As Single
    Dim sngAngle As Single
    Dim EncoderCLSID As GUID
    Dim uEncParams  As EncoderParameters1
    
    retStatus = Execute(GdipCreateFromHDC(PictureFax.hDC, lngGraphics))
    If retStatus = OK Then
        retStatus = Execute(GdipCreateBitmapFromHBITMAP( _
        PictureFax.Picture.Handle,  0 , lBitmap))
        If retStatus = OK Then
            Call Execute(GdipGetImageDimension(lBitmap, sngWidth, _
              sngHeight))
            sngAngle =  90 
            Call Execute(GdipRotateWorldTransform(lngGraphics, _
              sngAngle, MatrixOrderPrepend))
            Call Execute(GdipTranslateWorldTransform(lngGraphics, _
              sngWidth \  2 , sngHeight \  2 , MatrixOrderAppend))
            Call Execute(GdipDrawImageRect(lngGraphics, lBitmap, _
              sngWidth \  2 , sngHeight \  2 , -sngWidth, -sngHeight))
            Call Execute(GdipResetWorldTransform(lngGraphics))
            GetEncoderClsid "image/bmp", EncoderCLSID
            Call Execute(GdipSaveImageToFile(lBitmap, _
              StrPtr(App.Path & "\bitmap.bmp"), _
              EncoderCLSID, _
              uEncParams))
            ' Destroy the bitmap
            Call Execute(GdipDisposeImage(lBitmap))
            Call Execute(GdipDeleteGraphics(lngGraphics))
        End If
    End If
    
End Sub

Private Sub CommandSavePic_Click()
    SavePicture PictureFax.Picture, App.Path & "\pic.bmp"
End Sub

GetRotate90IPictureDisp (InFrame As IPictureDisp ) as IPictureDisp
FrameTemp = GetRotate90IPictureDisp (Frame(i)) 

picSrc=FrameTemp  'b х a вместо a x b
...
picSrc.Render CLng(hdcDst),

           Call Execute(GdipTranslateWorldTransform(lngGraphics, _
              sngWidth \  2 , sngHeight \  2 , MatrixOrderAppend))

            Call Execute(GdipTranslateWorldTransform(lngGraphics, _
              sngHeight \  2 , sngWidth \  2 , MatrixOrderAppend))

    retStatus = Execute(GdipCreateFromHDC(PictureNew.hDC, lngGraphics))
    If retStatus = OK Then
        retStatus = Execute(GdipCreateBitmapFromHBITMAP( _
        PictureFax.Picture.Handle,  0 , lBitmap))
        If retStatus = OK Then
            Call Execute(GdipGetImageDimension(lBitmap, sngWidth, _
              sngHeight))
            sngAngle =  90 
            Call Execute(GdipRotateWorldTransform(lngGraphics, _
              sngAngle, MatrixOrderPrepend))
            Call Execute(GdipTranslateWorldTransform(lngGraphics, _
              sngHeight \  2 , sngWidth \  2 , MatrixOrderAppend))
            Call Execute(GdipDrawImageRect(lngGraphics, lBitmap, _
              sngWidth \  2 , sngHeight \  2 , -sngWidth, -sngHeight))
            Call Execute(GdipResetWorldTransform(lngGraphics))
            GetEncoderClsid "image/bmp", EncoderCLSID
            Call Execute(GdipSaveImageToFile(lBitmap, _
              StrPtr(App.Path & "\bitmap.bmp"), _
              EncoderCLSID, _
              uEncParams))
            ' Destroy the bitmap
            Call Execute(GdipDisposeImage(lBitmap))
            Call Execute(GdipDeleteGraphics(lngGraphics))
            PictureNew.Refresh
        End If
    End If

PictureFax.AutoRedraw = True 'Не забывать Refresh по окончанию отрисовки
SavePicture PictureFax.Image, ...

    SavePicture PictureNew.image, App.Path & "\pic.bmp"

Public Function RotateFrame90As1bppAsIPictureDisp(ByVal i As Long) As IPictureDisp

            Call Execute(GdipDrawImageRect(lngGraphics, lBitmap, _
               0 ,  0 , -sngWidth, -sngHeight))

 Call Execute(GdipDrawImageRect(lngGraphics, lBitmap,  0 ,  0 ,  500 ,  1000 )

            Call GdipExec(GdipDrawImageRect(lngGraphics1, lBitmap1, _
              X0, Y0, DX, DY))