Memindahkan Banyak Item Antar List/Combo

'Persiapan: 1. Buat 1 Project baru dengan 1 Form, 2 ListBox, dan 1 Commandbutton.
' 2. Set property MultiSelect milik List1 menjadi '1 - Simple'.
' 3. Copy-kan coding berikut ke editor Form yang bertalian.
'--------------------------------------------------------------------------------

Private Sub Command1_Click()
'Jika List1 kosong, langsung keluar prosedur
'untuk menghindari error.
If List1.ListCount = 0 Then Exit Sub
Dim CurItem As Integer
CurItem = 0
Do
'Jika item yang dipilih
If List1.Selected(CurItem) Then
'Tambahkan ke ListBox kedua. Jika Anda menambahkannya ke ComboBox,
'ganti "List2" di bawah dengan nama ComboBox yang ada.
'Contoh: Combo1.AddItem List1.List(CurItem)
List2.AddItem List1.List(CurItem)
'Lalu hapus dari List1
List1.RemoveItem (CurItem)
Else
CurItem = CurItem + 1
End If
Loop Until CurItem = List1.ListCount
End Sub

Private Sub Form_Load()
'Tambahkan beberapa item ke dalam ListBox
For i = 1 To 10
List1.AddItem "Item " & i
Next
End Sub