ejemplo del post anterior

 
 
Private Priv_stdPic As StdPicture       '   //  Instancia o huevo vacio xP.
 
Private Sub Form_Load()
    Me.Picture = LoadPicture("c:\AmazingNurseNanako03.jpg")    '   //  cargamos imagen en el formulario como fondo xP.
    '   //  se hace una copia en MEMORIA!¡.
    Set Priv_stdPic = Me.Picture
End Sub
 
Private Sub Form_Click()
    With Priv_stdPic            '   //  Obtenemos los datos
        Call MsgBox(.Height)    '   //  Ya sabes que es xP
        Call MsgBox(.Width)     '   //  Ya sabes que es xP
        Set Picture = Nothing
        Call MsgBox("Se a limpiado el FORM!¡.")
    End With
    Set Me.Picture = Priv_stdPic
End Sub
 
 

Sangriento Infierno Lunar!¡.

extraño a mi si me anda!¡

 
Call SavePicture(Image1.Picture, "c:\aaa.jpg")
 
 

Dulces Lunas!¡.

Para eso puedes usa la función render de la propiedad picture, para guardarlo en un hdc ( De un control Picture por ejemplo, con autoredraw = true, depsues le pasas un savepicture() y ya, es lo mas cutre pero sirve )!¡.

ejemplo:

 
    With Obj_Pic
        call .Render (destDC Or 0&, 0&, 0&, ScaleX(.Width, vbHimetric, vbPixels), ScaleY(.Height, vbHimetric, vbPixels), _
            0&, .Height, .Width, -.Height, ByVal 0&)
    End With
 
 

P.D.: En el foro hay un código de Leandro A, búscale, qué yo me estoy centrando en los controles mas que en APIS (en tu problema)!¡.

Dulces Lunas!¡.