我用vb6.0軟件設計壹個功能為：有兩個列表框，左右各壹個，壹個點擊左邊列表框裏的選項選中，再點擊確定

Public?Class?Form1

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

If?ListBox1.SelectedItem?<>?""?Then

ListBox2.Items.Add(ListBox1.SelectedItem)

ListBox1.Items.Remove(ListBox1.SelectedItem)

End?If

End?Sub

Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click

If?ListBox2.SelectedItem?<>?""?Then

ListBox1.Items.Add(ListBox2.SelectedItem)

ListBox2.Items.Remove(ListBox2.SelectedItem)

End?If

End?Sub

End?Class