Sub Globals
End Sub
Sub App_Start
Form1.Show
End Sub
Sub Button1_Click
FileOpen(c1,Encaje.Text,cRandom)
bin.New1(c1,true)
End Sub
Sub Encajar_Click
bin.EmbedFile (AppPath & TextBox2.Text)
bin.EmbedFile (AppPath & "\aboutOk.png")
End Sub
Sub Button4_Click
FileClose(c1)
End Sub
FileOpen(p1,"images.dat",cRandom)
bin.New1(p1,true)
For i= 0 To x
ImageList1.Add(bin.RetrieveImage)
Next
FileClose(p1)
ImageButton1.Image = ImageList1.Item(x)