vb 怎么保存和读取LISTVIEW中的数据？求高手给段代码或者相关例子。谢谢！

Private Sub Form_Load()
Me.KeyPreview = True
i = 0
ListView1.View = lvwReport '显示风格
ListView1.Appearance = ccFlat '平面显示
ListView1.BorderStyle = ccNone '外框风格
ListView1.LabelEdit = lvwManual '不允许即时编辑标签
ListView1.MultiSelect = True '允许多选
ListView1.GridLines = True '显示网格线
ListView1.FullRowSelect = True '整行选取
ListView1.FlatScrollBar = False '使用三维的滚动条
ListView1.Checkboxes = True
ListView1.ColumnHeaders.Clear '清除默认列标头
ListView1.ColumnHeaderIcons = ImageList1 '设置列标头图象集合

'以下为列标头设置
ListView1.ColumnHeaders.Add , , "状态", ListView1.Width / 6.01
ListView1.ColumnHeaders.Add , , "姓名", ListView1.Width / 6.01, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "手机", ListView1.Width / 6.01, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "地址", ListView1.Width / 6.01, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "年龄", ListView1.Width / 6.01, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "性别", ListView1.Width / 6.01, lvwColumnCenter

'以下为添加数据
ListView1.ListItems.Add , , "待发", , 1 '状态
ListView1.ListItems.Item(1).SubItems(1) = "张三" '姓名
ListView1.ListItems.Item(1).SubItems(2) = "123456789" '手机
ListView1.ListItems.Item(1).SubItems(3) = "学院路" '地址
ListView1.ListItems.Item(1).SubItems(4) = "28" '年龄
ListView1.ListItems.Item(1).SubItems(5) = "男" '性别

ListView1.ListItems.Add , , "已发", , 2 '状态
ListView1.ListItems.Item(2).SubItems(1) = "李四" '姓名
ListView1.ListItems.Item(2).SubItems(2) = "987654321" '手机
ListView1.ListItems.Item(2).SubItems(3) = "学清路" '地址
ListView1.ListItems.Item(2).SubItems(4) = "22" '年龄
ListView1.ListItems.Item(2).SubItems(5) = "女" '性别

ListView1.ListItems.Add , , "待发", , 3 '状态
ListView1.ListItems.Item(3).SubItems(1) = "王五" '姓名
ListView1.ListItems.Item(3).SubItems(2) = "999999999" '手机
ListView1.ListItems.Item(3).SubItems(3) = "清华东路" '地址
ListView1.ListItems.Item(3).SubItems(4) = "18" '年龄
ListView1.ListItems.Item(3).SubItems(5) = "男" '性别

ListView1.ListItems.Add , , "待发", , 5 '状态
ListView1.ListItems.Item(4).SubItems(1) = "王五" '姓名
ListView1.ListItems.Item(4).SubItems(2) = "999999999" '手机
ListView1.ListItems.Item(4).SubItems(3) = "清华东路" '地址
ListView1.ListItems.Item(4).SubItems(4) = "18" '年龄
ListView1.ListItems.Item(4).SubItems(5) = "男" '性别

End Sub

Private Sub ListView1_Click()
If ListView1.ListItems.Count > 0 Then
Text1.Text = ListView1.SelectedItem.Text
Text2.Text = ListView1.SelectedItem.SubItems(1)
Text3.Text = ListView1.SelectedItem.SubItems(2)
Text4.Text = ListView1.SelectedItem.SubItems(3)
Text5.Text = ListView1.SelectedItem.SubItems(4)
Text6.Text = ListView1.SelectedItem.SubItems(5)
End If
End Sub