Checkedlistbox allows multiple selections with Selection mode set to one

Question

I have a simple CheckedListBox with three options. I set Selection Mode to One. When I test the form, it allows me to have more than one box checked. I can clear the other two with a program, but my understanding of Selection Mode was that it would not
allow more than one box to be checked if set on one.

Answer 1

Option Strict On
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CheckedListBox1.SelectionMode = SelectionMode.One
For i = 1 To 10
CheckedListBox1.Items.Add("Number" & i.ToString)
Next
End Sub
Private Sub CheckedListBox1_ItemCheckChanged(sender As Object, e As ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
Dim ItemIndex As Integer = e.Index
For i = 0 To CheckedListBox1.Items.Count - 1
If i <> ItemIndex Then
CheckedListBox1.SetItemCheckState(i, CheckState.Unchecked)
End If
Next
End Sub
End Class
La vida loca