In my program users can add and remove Label and image control at runtime from a picture wich is the container, so users can add label and image control as they want. I loop each control to determine each property and save it in a binary files, to later read this file and load each control.....
Code:
Public Type misText
    nombre As String
    indice As Long
    titulo As String
    alto As Long
    ancho As Long
    tope As Long
    izquierda As Long
    FontName As Variant
    FontSize As Variant
    FontBold As Variant
    FontItalic As Variant
    FontUnderline As Variant
    ForeColor As Variant
End Type
Public Type misImag
    nombre As String
    indice As Long
    alto As Long
    ancho As Long
    tope As Long
    izquierda As Long
    imagPath As String
End Type
Public cantText As Long 
Public cantImg As Long
Public miText() As misText
Public miImg() As misImag

Public Sub Guardando(sFic)
Dim Imagenes()
Dim Textos()
Dim CodigoB
Dim objCtl As Control
cantText = 0
cantImg = 0
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Lo primero que hago es abrir el fichero y borrarlo, porque sino se anexa la info
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Open (MDIMain.CommonDialog1.FileName) For Binary As #1
Close #1
Kill (MDIMain.CommonDialog1.FileName)

    For Each objCtl In FrmDiseno.Controls
            
            If objCtl.Container Is FrmDiseno.Picture1 Then
            
                Select Case objCtl.Name
                    Case "Texto1"
                        cantText = cantText + 1
                        ReDim Preserve miText(cantText)
                        miText(cantText).alto = objCtl.Height
                        miText(cantText).ancho = objCtl.Width
                        miText(cantText).izquierda = objCtl.Left
                        miText(cantText).tope = objCtl.Top
                        miText(cantText).titulo = objCtl.Caption
                        miText(cantText).FontBold = objCtl.Font.Bold
                        miText(cantText).FontItalic = objCtl.Font.Italic
                        miText(cantText).FontName = objCtl.Font.Name
                        miText(cantText).FontSize = objCtl.Font.Size
                        miText(cantText).FontUnderline = objCtl.Font.Underline
                        miText(cantText).ForeColor = objCtl.ForeColor
                    Case "Imagen1"
                        cantImg = cantImg + 1
                        ReDim Preserve miImg(cantImg)
                        miImg(cantImg).alto = objCtl.Height
                        miImg(cantImg).ancho = objCtl.Width
                        miImg(cantImg).imagPath = objCtl.Picture
                        miImg(cantImg).izquierda = objCtl.Left
                        miImg(cantImg).tope = objCtl.Top
                End Select
                
                
            End If
        
    Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Ahora guardo la informacion en el fichero (Save the information in files)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim nFic As Integer
nFic = FreeFile
    Open sFic For Binary As nFic
        Put nFic, , cantText
            For I = 1 To cantText
                Put nFic, , miText(I)
            Next I
        Put nFic, , cantImg
            For I = 1 To cantImg
                Put nFic, , miImg(I)
            Next I
        Put nFic, , myBarcode
Close nFic
   
End Sub
My Question is... How could i read this info from the File???
Thanks.....