CheckedListBox Wierdness

[Terry Olsen]

Dim dirs() as string = Directory.GetDirectories(MyPath)
CheckedListBox.DataSource = dirs
CheckedListBox.Update

For I as Integer = 0 To CheckedListBox.Items.Count - 1
CheckedListBox.SelectedIndex = I
DoMySub(CheckedListBox.SelectedItem)
Next

The first line in the For loop (CheckedListBox.SelectedIndex = I) sometimes
throws an exception about the index being out of range. "Index must be
non-negative and less than the number of items in the collection".

Sometimes it doesn't throw an exception, it works fine. I've checked the
values when it does bomb and the CheckedListBox.Items.Count = 562 and I = 0.
Yet it still throws the exception.

I've gotten around it by doing this:

For I as Integer = 0 To CheckedListBox.Items.Count - 1
Try
CheckedListBox.SelectedIndex = I
Catch
End Try
DoMySub(CheckedListBox.SelectedItem)
Next

Now the program works perfectly fine without any errors. It also gives the
correct results. Any ideas??? Anyone??

Thanks.