怎样将listbox中的文件列表保存起来,程序下次运行时自动读取到listbox中,该怎么解决

怎样将listbox中的文件列表保存起来,程序下次运行时自动读取到listbox中
如题,最好有代码示范

------解决方案--------------------
Private Sub Form_Load()
Dim i As Long, s As String
Open "c:\1.txt " For Input As #1
Do While Not EOF(1)
Input #1, s
List1.AddItem s
Loop
Close #1

End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i As Long
Open "c:\1.txt " For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next i
Close #1

End Sub