主题：CheckedListBox1如果加入值即选中

Dim ckl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each dc As Col In Tables("设备资料表").Cols
    If dc.Visible=True Then
        ckl.Items.Add(dc.name)
    End If   
Next

这加入的值默认是不选中的，如何一加入就选中呢