[VB6] Controlli Picture e Image

[LMondi]

Il seguente codice lo uso per salvare un'immagine di un grafico ottenuto con il controllo MSChart

FrmSintRiepilogo.ImageSintR.Refresh
    FrmSintRiepilogo.MSChartVal.EditCopy
    FrmSintRiepilogo.ImageSintR.Picture = Clipboard.GetData
SavePicture FrmSintRiepilogo.ImageSintR.Picture, strFolderDati & "\Grafici\MSChartVal.bmp"

Nella fase progettuale tutto funziona per il meglio, mentre quando il progetto viene compilato NON avviene più il salvataggio del file.
Dove sbaglio ? C'è un metodo diverso per effettuare SavePicture ?
Grazie per le risposte.

[LMondi]

Signori,
NON c'è nulla da modificare il codice funziona, anche se è meglio scriverlo così:

Dim vData As Variant

        vData = Clipboard.GetData
        Clipboard.Clear
        FrmSintRiepilogo.MSChartVal.EditCopy
        FrmSintRiepilogo.ImageSintR.Picture = Clipboard.GetData(vbCFBitmap) '(vbCFDIB)'vbCFBitmap
        SavePicture FrmSintRiepilogo.ImageSintR.Picture, strFolderDati & "\Grafici\MSChartVal.bmp"
        Clipboard.Clear
        Clipboard.SetData vData

Il problema era più semplicemente nella cartella ove si copiano i dati che era settata in sola lettura (ac .......)