I tried that it doesnt work..

Code:
 
Dim arrByte() As Byte
Dim IFFN As Integer
Dim strTempPath As String
   On Error GoTo ErrorHandler   ' Enable error-handling routine.
arrByte = LoadResData(rndnum, "Custom")
strTempPath = App.Path & "\Loading.jpg"
IFFN = FreeFile
Open strTempPath For Binary As IFFN
Put #IFFN, , arrByte
Close #IFFN
Form1.Picture1.Picture = LoadPicture(strTempPath)
Kill strTempPath
Exit Sub      ' Exit to avoid handler.
ErrorHandler:   ' Error-handling routine.
   Select Case Err.Number   ' Evaluate error number.
      Case 326   ' "Res Index not there" error.
      Exit Sub
   End Select
End Sub