Einfachster Weg: Bild in einer Datei zwischenspeichern...
dim PicData() as byte
dim hDatei as integer
hDatei = freefile
PicData = LoadResData(101,"CUSTOM")
open "bla.tmp" for binary as #hDatei
put #hDatei,1,PicData
close #hDatei
Picture1.Picture = LoadPicture("bla.tmp")
Den Tmp-Ordner von Windows bekommst du über GetTempPath() API, mit GetTempFileName() kannste dir nen Dateinamen erstellen lassen...