在窗体中拉两个listbox控件和一个Button控件，然后双击Button控件将如下代码复制到光标位置；Dim a As String a = ListBox1.SelectedItem ListBox2.Items.Add(a)
ListBox2.Items.Add(ListBox1.SelectedItem.ToString)
楼上兄台回答的不错，直接给分吧，我就不重复了
