picturebox图片和文字合成后储存的问题

Question

但是存出来是原始图片，没有合成文字改变大小。

Answer 1

保存后我这可以看到“照片合成”等字样。重新启动一个vb工程，就只用你上面提供的代码再试试。

Answer 2

LZ给出的代码能实现合成文字和改变图片大小。

Answer 3

这个代码不对。应该这样用：
Option ExplicitPrivate Sub Command1_Click()
    'On Error Resume Next
    With ptePhoto
        .AutoRedraw = True
        '.Picture = LoadPicture(strName)
        .Width = 3000
        .Height = 4000
        .PaintPicture .Picture, 0, 0, .Width, .Height
        .CurrentX = 200
        .CurrentY = 500
        .Font = Label1.Font
        .ForeColor = Label1.ForeColor '&HFF8080
        .FontSize = 20
        .FontBold = True
    End With
    ptePhoto.Print Label1.Caption
    SavePicture ptePhoto.Image, "d:\保存图片及文字.bmp"
    
End SubPrivate Sub Form_Load()
   ptePhoto.Picture = LoadPicture("c:\泸沽湖.bmp")
   Command1.Caption = "保存图片及文字"
End Sub