http://www.vb-helper.com/HowTo/pictext.zip

	Purpose
Draw on a picture and save the results into a file

	Method
Use the PictureBox's Print method to draw the text on it. Then
use SavePicture to save the new image.

    Private Sub Form_Load()
    Dim file_path As String
    
        file_path = App.Path
        If Right$(file_path, 1) <> "\" Then file_path = file_path & "\"
    
        ' Load the picture.
        Picture1.Picture = LoadPicture(file_path & "cats.jpg")
    
        ' Add the text centered at the top.
        Picture1.AutoRedraw = True
        Picture1.ForeColor = vbWhite
        Picture1.Font.Name = "Times New Roman"
        Picture1.Font.Size = 20
        Picture1.Font.Bold = True
        Picture1.CurrentX = (Picture1.ScaleWidth - Picture1.TextWidth("Cats")) / 2
        Picture1.CurrentY = 30
        Picture1.Print "Cats"
    
        ' Save the picture's Image.
        SavePicture Picture1.Image, file_path & "cats2.jpg"
    
        ' Alternatively you can use this:
        '
        '   Picture1.Picture = Picture1.Image
        '
        ' to make the Picture property be the same as the Image
        ' and then save the Picture property.
    End Sub

	Disclaimer
This example program is provided "as is" with no warranty of any kind. It is
intended for demonstration purposes only. In particular, it does no error
handling. You can use the example in any form, but please mention
www.vb-helper.com.
