Private Sub Form_Load()
    Picture1.AutoRedraw = True
    Picture1.AutoSize = True
    Picture1.Picture = LoadPicture("D:\beispiel.jpg")
    Command1.Caption = "Speichern"
    Command2.Caption = "Schreiben..."
End Sub

Private Sub Command1_Click()
' Speichern (Bild und Text)
    Picture1.Picture = Picture1.Image 'zuweisen des Images!
    SavePicture Picture1.Picture, "D:\test.bmp"
End Sub

Private Sub Command2_Click()
' Schreib etwas in das Bild
    With Picture1
        .CurrentX = 20
        .CurrentY = 100
        .FontBold = True
        .FontSize = "18"
        .FontName = "Arial"
        .ForeColor = vbRed
    End With
 
    Picture1.Print "Hallo Visual Basic!"
End Sub