Hola soy Jilo, estoy haciendo un programita que me guarda cada registro y me lee cada registro.
El problema es que quiero cargar una imagen jpg para cada registro o sea que guarde una imagen y lea para cada registro.
pongo el codigo que tengo hasta ahora.
Código:

en un modulo:

Type Registro
  Codigo As String * 3
  Apellidos As String * 40
  Nombres As String * 40
  Direccion As String * 40
  Telefono As String * 10
  renglon As String * 113
End Type
Global Alumnos As Registro



y en el formulario


Option Explicit
Dim x, numreg, pos As Integer
Private Sub Command1_Click()
Dim resp As String
Dim renglon As String
renglon = vbCrLf
Open App.Path & "/Alumnos.txt" For Random As #1 Len = Len(Alumnos)

    Alumnos.Codigo = Text1
    Alumnos.Apellidos = renglon + Text2
    Alumnos.Nombres = Text3
    Alumnos.Direccion = Text4
    Alumnos.Telefono = Text5 + renglon
    numreg = LOF(1) / Len(Alumnos)
    Put #1, numreg + 1, Alumnos
    Command1.Enabled = False

Close #1
End Sub
Private Sub Command2_Click()
Dim c As Integer

limpiar
Open App.Path & "/Alumnos.txt" For Random As #1 Len = Len(Alumnos)
Command1.Caption = "&Grabar"
numreg = LOF(1) / Len(Alumnos)
If numreg = 0 Then
   Text1 = "001"
Else
   Get #1, numreg, Alumnos
   c = Val(Alumnos.Codigo)
   If c < 9 Then
       Text1 = "00" + Trim(c + 1)
   Else
     If c < 99 Then
         Text1 = "0" + Trim(c + 1)
     Else
         Text1 = c + 1
     End If
  End If
End If
Close #1
Text2.SetFocus
End Sub



Private Sub Command5_Click()
End
End Sub


Private Sub Form_Load()
Dim c As Integer
x = 1
limpiar
Command1.Caption = "&Grabar"
Open App.Path & "/Alumnos.txt" For Random As #1 Len = Len(Alumnos)
numreg = LOF(1) / Len(Alumnos)
If numreg = 0 Then
  Text1 = "001"
Else

   Get #1, numreg, Alumnos
   c = Val(Alumnos.Codigo)
  
   If c < 9 Then
   Text1 = "00" + Trim(c)
   Else
     If c < 99 Then
        Text1 = "0" + Trim(c)
     Else
        Text1 = c
     End If
  End If

 End If
  
Close #1
Command1.Enabled = False

End Sub
Sub limpiar()
Text1 = "": Text2 = "": Text3 = "": Text4 = "": Text5 = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim i As Integer
Open App.Path & "/Alumnos.txt" For Random As #1 Len = Len(Alumnos)
If KeyAscii = 13 Then
   numreg = LOF(1) / Len(Alumnos)
   pos = 0
   If numreg = 0 Then
      MsgBox "No existe ningún registro"
   Else
      For i = 1 To numreg
         Get #1, i, Alumnos
         
            If Text1 = Alumnos.Codigo Then
               Text2 = Alumnos.Apellidos
               Text3 = Alumnos.Nombres
               Text4 = Alumnos.Direccion
               Text5 = Alumnos.Telefono
               pos = i
               Text2.SetFocus
               Exit For
            
         End If
      Next i
   End If
   If pos = 0 Then
      MsgBox "Este código no existe"
      limpiar
      Dim c As Integer
Close #1
Command1.Caption = "&Grabar"
Open App.Path & "/Alumnos.txt" For Random As #1 Len = Len(Alumnos)
numreg = LOF(1) / Len(Alumnos)
If numreg = 0 Then
  Text1 = "001"
Else

   Get #1, numreg, Alumnos
   c = Val(Alumnos.Codigo)
 
   If c < 9 Then
   Text1 = "00" + Trim(c)
   Else
     If c < 99 Then
        Text1 = "0" + Trim(c)
     Else
        Text1 = c
     End If
  End If
 
 End If
  

Command1.Enabled = False
Command2.SetFocus
   End If
End If
Close #1

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   If Text2 = "" Then
      MsgBox "Ingrese los Apellidos del Alumno"
   Else
      Text3.SetFocus
   End If
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   If Text3 = "" Then
      MsgBox "Ingrese los Nombres del Alumno"
   Else
      Text4.SetFocus
   End If
End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   If Text4 = "" Then
      MsgBox "Ingrese la Dirección del Alumno"
   Else
      Text5.SetFocus
   End If
End If
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   If Text5 = "" Then
      MsgBox "Ingrese el Teléfono del Alumno"
   Else
      Command1.Enabled = True
      Command1.SetFocus
   End If
End If
End Sub




Gracias