这要咋做

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add("VFP")
ListBox1.Items.Add("高等数学")
ListBox1.Items.Add("国际贸易")
ListBox1.Items.Add("计算机网络")
End Sub
Private Sub ListBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
Dim i2
Dim s1
i2 = ListBox1.SelectedIndex
If i2 >= 0 Then
s1 = ListBox1.SelectedItem.ToString()
ListBox2.Items.Add(s1)
ListBox1.Items.RemoveAt(i2)
End If
End Sub
End Class

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add("VFP")
ListBox1.Items.Add("高等数学")
ListBox1.Items.Add("国际贸易")
ListBox1.Items.Add("计算机网络")
End Sub
Private Sub ListBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
Dim i2
Dim s1
i2 = ListBox1.SelectedIndex
If i2 >= 0 Then
s1 = ListBox1.SelectedItem.ToString()
ListBox2.Items.Add(s1)
ListBox1.Items.RemoveAt(i2)
End If
End Sub
Private Sub ListBox2_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.DoubleClick
Dim i2
Dim s1
i2 = ListBox2.SelectedIndex
If i2 >= 0 Then
s1 = ListBox2.SelectedItem.ToString()
ListBox1.Items.Add(s1)
ListBox2.Items.RemoveAt(i2)
End If
End Sub
End Class

第二个即可