主题：checkedlistbox

Dim lst As WinForm.CheckedListBox
'Dim v As new List(of String)
lst = Forms("测试").Controls("CheckedListBox1")

For i As Integer = 0 To lst.Items.Count -1
    If lst.GetItemChecked(i) = False Then
        'v.Add(lst.Items(i))
        Tables("新表").Cols(lst.Items(i)).Visible = True
    Else
        Tables("新表").Cols(lst.Items(i)).Visible = False
    End If
Next