VB6.0中如何保存和读取l两个list中的内容！

‘一个list代码都是错的，给你重写一个，我不喜欢修改别人的代码 ，2个list思路一样自己修改
Dim filename As String
Private Sub Form_Unload(Cancel As Integer)
Dim i As Long, Temp As String
If Dir(filename) = "" Or List1.ListCount = 0 Then Exit Sub
Open filename For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next
Close #1
End Sub
Private Sub Form_Load()
Dim arr, i As Integer
filename = App.path & IIf(Right(App.path, 1) = "\", "", "\") & "data.dat"
If Dir(filename) <> "" Then
Open filename For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
Close #1
For i = 0 To UBound(arr)
If Len(arr(i)) > 0 Then List1.AddItem arr(i)
Next
End If
End Sub

再复制粘贴一边改改控件名字就是