主题：复选列表框单选的代码

设置这个控件的Itemcheck事件：

If e.Checked Then
    Dim cst As WinForm.CheckedListBox = e.sender
    For i As Integer = 0 To cst.Items.count - 1
        If i <> e.Index Then
            cst.SetItemChecked(i, False)
        End If
    Next
End If