主题：请教复选列表控件

大师：这是帮助中的描述，为何选择该控件的空白区域，选中状态也发生变化呢？如何实现选中复选框或那一行才发生变化呢？

ItemCheck

某一项目的选中状态即将发生变化时执行。

为此，只需将其ItemCheck事件代码设置为：

If e.Checked Then
    Dim cst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
    For idx As Integer = 0 To cst.Items.Count - 1
        If idx <> e.Index Then
            cst.SetItemChecked(idx, False)
        End If
    Next
End If