te paso una forma, pone un picture1 y un command1
Código:
Private Sub Command1_Click()
Dim x As IPictureDisp
Set x = Picture1.Image
'graba la imagen con todo, el picture y los dibujos con los metodos graf
SavePicture x, "c:\zzz.bmp"
Set x = Nothing
End Sub
Private Sub Form_Load()
With Picture1
.Picture = LoadPicture("c:\windows\plumas.bmp")
.AutoSize = True
.ScaleMode = 3
.DrawWidth = 5
.ForeColor = vbRed
.AutoRedraw = True
Picture1.Circle (.ScaleWidth / 2, .ScaleHeight / 2), .ScaleWidth / 4
End With
Command1.Caption = " grabar "
End Sub
saludos