una forma es algo asi:
Saludos.
Código (vb) [Seleccionar]
Dim vDatos As String
vDatos = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)
Open "C:\Imagen.jpg" For Binary As #1
Put #1, , vDatos
Close
Picture1.Picture = LoadPicture("C:\Imagen.jpg")
Kill "C:\Imagen.jpg"Saludos.
, con los controles DATA y el visdata para hacer las bases de access que solo toman la versión 97, un desastre...