怎幺用vb在一张图片上写上字以后再保存为一张图片!

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As LongPrivate Sub Command1_Click()
    Picture1.AutoRedraw = True
    Picture1.ForeColor = vbRed
    TextOut Picture1.hdc, 0, 0, "testtesttest", Len("testtesttest")
    SavePicture Picture1.Image, "D:\test.bmp"
End Sub