Save-Load ListBox

[Человек]

Как сохранить данные из листбокса в txt файл, а потом, при старте проги их(данные) загрузить в листбокс?

[A.A.Z.]

Код: Выделить всё

Sub Form_Load()
Dim S$
Open "C:\LB.txt" For Input As #1
Do Until EOF(1)
Line Input #1, S
List1.AddItem S
Loop
Close #1
End Sub

Sub Form_Unload(Cancel As Integer)
Dim S$, I&
Open "C:\LB.txt" For Output As #1
For I = 0 To List1.ListCount - 1
List1.ListIndex = I
S = List1.Text
Print #1, S
Next
Close #1
End Sub