vb中的list1

vb怎么把 list1的内容保存为txt，下次还能读取又显示在list1中。

这两个功能怎么实现

Option Explicit

Private Sub Command1_Click() '读取数据
Dim a As String
On Error Resume Next
Open "1.txt" For Input As #1
While Not EOF(1)
Line Input #1, a
List1.AddItem a
Wend
Close #1
End Sub

Private Sub Command2_Click()
List1.Clear
End Sub

Private Sub Command3_Click() '保存数据
Open "1.txt" For Output As #1
Dim i As Integer
If List1.ListCount > 0 Then
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next i
End If
Close #1
End Sub

Private Sub Form_Load()
Command1.Caption = "读取"
Command2.Caption = "清空list"
Command3.Caption = "保存"
List1.AddItem "abc"
List1.AddItem "def"
List1.AddItem "iii"
End Sub
'添加一个list三个按钮然后粘贴代码，不明白的百度HI我

使用 listview 控件可实现上述功能。

具体使用方法请参阅： http://www.360doc.com/content/09/0728/11/19147_4505438.shtml