List，是ListBox中所有的列表集合，是壹個數組。
例如List1.List(0)就代表List1中的第壹個列表項，
Text代表ListBox當前選中項目文本，與Lit1.List(List1.ListIndex)效果壹樣。
示例：
列表框的特點是：列表框中的項目是通過程序插入到其中的，用戶無法向清單中輸入數據，當選擇其中的項目，並在用戶單擊壹個按鈕或者執行某個操作時，由應用程序完成對指定項目的具體操作。下面這個例子充分說明了列表框的這個特點，並介紹了列表框（ListBox）的常用屬性。
為了學習方便，提供的源碼已經作了詳細的中文註釋，看看源碼框中的代碼：
Option Explicit
' 簡單的列表框ListBox的例子
'------名稱-------------作用------------
' List1、List2 列表框
' LefttoRightCmd 移動所選項目到另壹個列表框（左到右）
' RighttoLeftCmd 移動所選項目到另壹個列表框（右到左）
' LefttoRightCmd 移動所選項目到另壹個列表框（左到右）
' RighttoLeftCmd 移動所選項目到另壹個列表框（右到左）
' List1.deleteString 刪除列表框List1中所選項目
' List2.deleteString 刪除列表框List2中所選項目
' List1.AddString 給列表框List1增加新項目
' List2.AddString給列表框List2增加新項目
' List1.ResetContent清空列表框List1
' List2.ResetContent 清空列表框List2
'————名稱————屬性設置———
' List1列表框 Sorted屬性設為“False”
' List2列表框 Sorted屬性設為“True”
' MultiSelect屬性設置為2
' 即List2控件中的項目總是排序的
'--------------------------------------
Private Sub Form_Load()
'裝載窗體時，給列表中的元素賦值
List1.AddItem “China”
List1.AddItem “America”
List1.AddItem “Japan”
List2.AddItem “Soccer”
List2.AddItem “Tennis”
List2.AddItem “Basketball”
End Sub
Private Sub LefttoRightCmd_Click()
'將左邊列表中所選元素移動到右邊列表中
If List1.ListIndex >；= 0 Then
'在右邊列表中增加新元素
List2.AddItem List1.Text
'刪除左邊列表中的所選元素
List1.RemoveItem List1.ListIndex
End If
End Sub
Private Sub List1AddCmd_Click()
Dim ListItem As String
'
ListItem = InputBox(“在列表中輸入新項目”)
'向列表中加入新項目
If Trim(ListItem) <；>； ““ Then
'Trim（）作用是清除ListItem字符串內的空格
List1.AddItem ListItem
End If
End Sub
Private Sub List1ClearCmd_Click()
'清空列表
List1.Clear
End Sub
Private Sub List1MoveCmd_Click()
Dim i As Integer
'判斷列表框是否只有壹個項目被選中
If List1.SelCount = 1 Then
List1.RemoveItem List1.ListIndex
ElseIf List1.ListCount >； 1 Then
'刪除列表框中的所選中的多個項目
For i = List1.ListCount - 1 To 0 Step -1
'ListCount返回列表框中的項目總數
'ListCount-1是列表框中最後壹個項目的索引號
'判斷該項目是否被選中，Selected()返回布爾值