Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

’ 避免新增重複的東西
Dim i As Integer
For i = 0 To ListBox1.Items.Count - 1
If ListBox1.Items(i).ToString = TextBox1.Text Then Exit Sub
Next
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
’ 讓listbox1沒項目也不會錯誤
If ListBox1.SelectedItems.Count = 0 Then Exit Sub

’ 把項目從listbox1移到listbox2
Do
ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox1.Items.Remove(ListBox1.SelectedItem)

Loop Until ListBox1.SelectedItems.Count = 0






End Sub
End Class