vb.net listbox1中的选中项复制到listbox2中(要求listbox1中不删除选中项),麻烦给出代码

Question

要完整代码

Answer 1

Private Sub ListBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged
Me.ListBox2.Items.Add(Me.ListBox1.SelectedItem)
End Sub