一个关于list控件的问题

Question

'        Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
'     Author:吴文智
'       Date:2001-11-26
'Description:要试用本例请在窗体中填加ListBox
'            然后在代码窗体中粘贴如下代码
'            Good luck!Option ExplicitPrivate Sub Command1_Click()
    Dim lngIndex As Long
    
    For lngIndex = 0 To List1.ListCount - 1
        If List1.Selected(lngIndex) Then
            MsgBox List1.List(lngIndex) & " is selected", vbInformation
        End If
    Next
End SubPrivate Sub Form_Load()
    List1.AddItem 1
    List1.AddItem 2
    List1.AddItem 3
End Sub