Option Explicit
 
Public Function LoadData(ByVal ResID As Long) As Byte
    LoadData = LoadResData(ResID, "JPG")
End Function

Dim cDLL As Object
Dim clsName As String
Dim bJPG() As Byte
Dim sTempFile As String
Dim ResID As Long
 
 
' Temporäre Dateinamen
Private Declare Function GetTempFileName Lib "kernel32" _
  Alias "GetTempFileNameA" (ByVal lpszPath As String, _
  ByVal lpPrefixString As String, ByVal wUnique As Long, _
  ByVal lpTempFileName As String) As Long
 
Private Declare Function GetTempPath Lib "kernel32.dll" _
  Alias "GetTempPathA" (ByVal nBufferLength As Long, _
  ByVal lpBuffer As String) As Long
 
 
' Byte-Array temporär speichern
' hierfür wird im TEMP-verzeichnis eine TMP-Datei
' erzeugt, deren Pfad und Namen von der Funktion
' zurückgegeben wird
Public Function resSaveDataTemp(ByRef bData() As Byte) As String
  Dim F As Integer
  Dim sTempPath As String
  Dim sTempFile As String
  Dim lngResult As Long
 
  ' Temporäres Verzeichnis ermitteln
  sTempPath = Space$(256)
  lngResult = GetTempPath(Len(sTempPath), sTempPath)
  sTempPath = Left$(sTempPath, lngResult)
 
  ' Temporären Dateinamen ermitteln
  sTempFile = Space$(256)
  Call GetTempFileName(sTempPath, "~RES", 0&, sTempFile)
  sTempFile = Left$(sTempFile, InStr(sTempFile, Chr$(0)) - 1)
 
  ' Byte-Array in temporäre Datei speichern
  F = FreeFile
  Open sTempFile For Binary As #F
  Put #F, , bData()
  Close #F
 
  ' Pfad+Namen der TEMP-Datei zurückgeben
  resSaveDataTemp = sTempFile
End Function
 
 
Private Sub Form_Load()
    clsName = "unocards.unocardsres"
    ResID = 1001
    Set cDLL = CreateObject(clsName)
    bJPG = cDLL.LoadData(ResID)
 
' Bild temporär speichern
    sTempFile = resSaveDataTemp(bJPG())
 
' Bild anzeigen
    Set Image1.Picture = LoadPicture(sTempFile)
 
' Temporäre Bilddatei löschen
    Kill sTempFile
End Sub