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.