设置这个控件的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 NextEnd If