This is a load of crap!!!

[B2E]

I a making a game and i am saving the bitmaps to my own type of binary file, here is were i am lost once i load the bitmaps into memory from the binary file that i saved them in i do not know how to make them useable agian, i loaded them back in and they are in something like

dim bgimage as byte

bgimage(0)

and i loaded the bitmap as the bgimage!?!?

does anyone know how i can get it back to a useable image
i am lost as an unsaved sinner but any way PLEASE HELP ME!! anyone i just do not know were to go from here ???? any help would be greatly appreciated!!!!
i might even hook you up with some free stuff from my BizNas at www.buy2easy.com

[Sastraxi]

Using the Get/Put commands, you can store User Defined Types and get them back again. For example:

Private Type UDT
   ImageFileName As String
End Type
Function Save()
Dim A As UDT
   R = InputBox("What is the file's name that you want to load?")
   If R = "" Then Exit Function
   A.ImageFileName = R
   Open App.Path & "\data" For Random As #1
      Put #1, , A
   Close #1
End Function
Function Load() As Picture
Dim A As UDT
   Open App.Path & "\data" For Random As #1
      Get #1, , A
   Close #1
   Set Load = LoadPicture(A.ImageFileName)
End Function
Private Sub Command1_Click()
   Save
   Set Me.Picture = Load
End Sub

I made the code work