主题：字符串转集合问题

Dim lst As List(Of String)

改成

Dim lst As New List(Of String)

再有，移除不是这样弄的。ItemCheck事件

Dim c1 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim c2 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox2")
Dim s As String = e.Sender.Items(e.Index)
If e.Checked = False Then
    If c2.Items.Contains(s) Then
        c2.items.Remove(s)
    End If
Else
    c2.items.add(s)
    c2.SetItemChecked(c2.Items.Count-1,True)
End If