memindahkan data antar listbox di visual basic 6.0

Langkah-langkahnya:

1. buat listbox 2 buah
2. buat button 2 buah

Running ke-1 :



Running ke-2 :


di koding ketikan sbb :

Private Sub Form_Load()
List1.AddItem "data ke-1"
List1.AddItem "data ke-2"
List1.AddItem "data ke-3"
List1.AddItem "data ke-4"
List1.AddItem "data ke-5"
End Sub

command1_click()
'buat seleksi disini apakah listbox1 udah kosong
'----------------------------------------------
'buat lagi seleksi disini untuk apakah data di listbox1 udah di sorot blom
list2.additem list1.text
Dim A as string
A= list1.listindex
list1.removeitem(A)
list1.refresh
end sub

command2_click()
'buat seleksi disini apakah listbox2 udah kosong
'----------------------------------------------
'buat lagi seleksi disini untuk apakah data di listbox2 udah di sorot blom
list1.additem list2.text
Dim B as string
B= list2.listindex
list2.removeitem(B)
list2.refresh
end sub

NB:
1. program masih error jika button1 dan button2 d klik tanpa mensorot data pada listboxnya dan jika data udah kosong di listboxnya
2. untuk menanganinya buatlah seleksi menggunakan IF-THEN untuk mengecek data udah disorot belom...( pikirin lagi ya..)