VB6GDI+图片另存为实例代码（整理保存无错版）

Option Explicit
Dim Bitmap As Long, Graphics As Long, Brush As Long

Private Sub Form_Load()
InitGDIPlus

    CreateBitmapWithGraphics Bitmap, Graphics, 50, 50
     
    GdipCreateSolidFill &H80FF0000, Brush  '半透明红色。保存后仅在PNG中有半透明效果。
    GdipFillRectangleI Graphics, Brush, 0, 0, 50, 50
 
    GdipDeleteBrush Brush
    GdipDeleteGraphics Graphics
    GdipLoadImageFromFile StrPtr("F:\work_vb\001.png"), Bitmap
    GdipDrawImageRect Graphics, Bitmap, 0, 0, 400, 400 '拉伸到100*200
    SaveImageToPNG Bitmap, "F:\work_vb\1.png"
    SaveImageToJPG Bitmap, "F:\work_vb\1.jpg", 100
    SaveImageToGIF Bitmap, "F:\work_vb\1.gif"
    SaveImageToBMP Bitmap, "F:\work_vb\1.bmp"
     
    GdipDisposeImage Bitmap

End Sub

Private Sub Form_Unload(Cancel As Integer)
TerminateGDIPlus
End Sub