Developer, Former MVP, now at Microsoft - Best of 2004, 2005, 2006, 2007, 2008, 2009
Dim i As Int32Dim k As Int32 = mCol.CountFor i = 0 To mCol.Count - 1 Me.MethodThat_May_ResultInRemovalFromCol() If k > mCol.Count Then i -= 1 k = mCol.Count End If If k <= i + 1 Then Exit For End If Next i