Storing .JPG pictures in a resource file

[Serge]

Here you go:

Public Sub RunPictureFromResource(pintResourceID As Integer, pPictureBox As PictureBox)
    Dim bytArr() As Byte
    Dim intFFN As Integer
    Dim strPath As String

    bytArr = LoadResData(pintResourceID, "CUSTOM")
    strPath = App.Path & IIf(Right(App.Path, 1) = "\", MyPicture.tmp", "\MyPicture.tmp")
    intFFN = FreeFile
    Open strPath For Binary As intFFN
    Put #intFFN, , bytArr
    Close #intFFN
    pPictureBox = LoadPicture(strPath)
    Kill strPath
End Sub

Then call this function like this:

Call RunPictureFromResource(101, Picture1)

Where
101 - is a resource ID
Picture1 - is a name of the PictureBox

[Edited by Serge on 08-17-2000 at 09:39 PM]