新建一個標準EXE工程，在屏幕上會出現一個空白的窗體，向窗體上添加兩個ListBox控件、二個Frame控件、四個CommandButton控件和二個OptionButton控件，添加控件后的窗體如圖1所示。
圖1
二、控件屬性及設置列表：
圖2
提示：MultiSelect設置為“2－Extended”就實現用Ctrl鍵和Shift鍵來選擇列表中的內容。
三、程序的代碼分別如下：
'1.開始執行程序時，調用程序聲明段中的代碼：
Dim flag(100) As Boolean, ff As Boolean
Dim i, g As Integer
'2.雙擊控件Command1，在代碼窗口中的光標就會自動的跳轉到控件Command1的
Command1_Click()事件處，在該事件中添加下列代碼：
Private Sub Command1_Click() '添加…>>
If ff = True Then
For i = 0 To List1.ListCount - 1
If flag(i) = 0 And List1.Selected(i) Then '判斷選項的選中狀態
List2.AddItem List1.List(i) '向控件list2添加選項
flag(i) = 1
Call mun '調用統計列表個數
End If
Next i
End If
If ff = False Then
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then '判斷選項的選中狀態
List2.AddItem List1.List(i) '向控件list2添加內容
List1.RemoveItem (i)
Call mun '調用統計列表個數
End If
Next i
End If
End Sub
