Salvare picturebox in DB Access in VB6

[p73]

Ho provato ad inserire questo codice...

<code>
----------------------------------------------
Dim sFile As String

sFile = App.Path & "\testsave.bmp"

SavePicture lavagna.Image, sFile
----------------------------------------------
</code>

...ma mi salva soltanto l'immagine della picturebox vuota.