Private Sub Command1_Click()
    Picture1.AutoRedraw = True
    Picture1.ScaleMode = vbPixels
    Picture1.CurrentX = 50
    Picture1.CurrentY = 50
    Picture1.Print "Hallo"
    Picture1.Refresh
End Sub
 
Private Sub Command2_Click()
    SavePicture Picture1.Picture, "C:\testpic"
End Sub