Private Sub Command1_Click()
Dim MyName As String
Dim lYear() As String
Dim i As Integer

Open "C:\aaa.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, MyName
If InStr(4, MyName, "|") <> 0 Then
lYear = Split(MyName, "|")
For j = 0 To Combo1.ListCount
If lYear(4) = Combo1.List(j) Then GoTo TT
Next
Combo1.AddItem lYear(4), i
i = i + 1
TT:
End If
Loop
Close #1
End Sub
这段代码中Combo1.ListCount 什么意思呀　

就是下拉框里的选项个数