Memindahkan Item pada Listbox ke Listbox yang lainnya | Tutorial Visual Basic

sekarang saya akan berbagi cara membuat program yang sangat sederhana yaitu program memindahkan semua Item pada ListBox yang sebelah kiri ke ListBox yang sebelah kanan dan mengembalikan lagi ke Listbox sebelah kiri dengan menggunakan bentuk perulangan For...Next. dengan bentuk ini kita akan membuat index Item pada ListBox menjadi  nilai awal dan akhirnya.

Biar lebih jelas kita praktekan saja! 

1. Buat New Project, Standard EXE

2. Tambahkan 2 ListBox dan 2 Commanbutton

3. Ubah properti List1,Command1 dan Command2 menjadi seperti berikut :

List1	List	Anggur Jeruk Apel Melon Jambu Semangka Nanas
List2	(tidak perlu ada yang diubah)
Command1	Caption	>>
Command2	Caption	<<

Sehingga tampak seperti gambar yang diatas (paling awal)

4. Masukan kode program berikut :

Private Sub Command1_Click()

Dim I As Integer

For I = 0 To List1.ListCount - 1

List2.AddItem List1.List(I)

Next I

List1.Clear

End Sub

Private Sub Command2_Click()

Dim I As Integer

For I = 0 To List2.ListCount - 1

List1.AddItem List2.List(I)

Next

List2.Clear

End Sub

5. Jalankan Programnya!! Lalu klik button “>>” Semua item di List1 akan berpindah ke List2. Dan sebaliknya ketika mengklik button “<<” Semua item di List2 akan berpindah ke List1.