求教VB6的combo1和listview1的使用方法

关键代码如下：
一、假设姓名=张三，班级=1班，成绩=85，让combo1的选项附带上班级、成绩的方法是：
Dim S as String
combo1.AddItem "张三"
S=85 & 1 '把成绩和班级合并为一个数值
combo1.ItemData(combo1.NewIndex)=val(s) '保存到记录中
二、把combo1中选中的项添加到listview1（分三列）中，而且不能重复
Private Sub Combo1_Click()
Dim itm As ListItem, i As Long
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Text = Combo1.Text Then Exit Sub '保证不出现重复
Next
'追加
S = Combo1.ItemData(Combo1.ListIndex)
Set itm = ListView1.ListItems.Add(, "Row" & ListView1.ListItems.Count + 1, Combo1.Text) '得到姓名
itm.SubItems(1) = Right(S, 1) 得到‘班级
itm.SubItems(2) = Left(S, Len(S) - 1) '得到成绩
Set itm = Nothing
End Sub
三、根据listview1中的“班级（1班或者2班）”循环往下读取（间隔1秒），如果是“1”，则读取该行对应的“成绩”（text1.text=成绩分数）
Private Sub Timer1_Timer()
Dim itm As ListItem, i As Long
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(1) = "1" Then '如果是“1”
Text1.Text = ListView1.ListItems(i).SubItems(2)
ListView1.ListItems(i).Selected = True '移到该行
Exit Sub
End If
Next
End Sub