If CheckedListBox1.Items.Count <> 0 Then
For u As Integer = 0 To CheckedListBox1.Items.Count - 1
CheckedListBox1.SetItemChecked(u, System.Windows.Forms.CheckState.Unchecked) '单选
Next
End If
For u As Integer = 0 To CheckedListBox1.Items.Count - 1
CheckedListBox1.SetItemChecked(u, System.Windows.Forms.CheckState.Unchecked) '单选
Next
End If