For i = 0 To CheckedListBox1.Items.Count - 1
For j = CheckedListBox1.Items.Count - 1 To i + 1 Step -1
If CheckedListBox1.Items(i) = CheckedListBox1.Items(j) Then CheckedListBox1.Items.RemoveAt(j)
Next
Next
For j = CheckedListBox1.Items.Count - 1 To i + 1 Step -1
If CheckedListBox1.Items(i) = CheckedListBox1.Items(j) Then CheckedListBox1.Items.RemoveAt(j)
Next
Next