guardar datos en listbox

[plotor]

Hola

Intento guardar los datos del listbox y solo guarda el último dato ingresado en listbox
¿Cómo puedo guardar todos los datos ingresados en el cuadro de lista?

Código: [Seleccionar]


Type Registro
IdDato As Integer
rTitulo As String * 25
End Type

datos as registro

Open "c:programacategorias.cat" For Random As #1 Len = Len(Datos)
for x = 0 to list1.listcount -1
put #1,x, Datos
next
Close #1




Open "c:programacategorias.cat" For Random As #1 Len = Len(Datos)
Get #1, List1.ListIndex + 1, Datos
Close #1
MsgBox Datos.rTitulo






gracias