Developer, Former MVP, now at Microsoft - Best of 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013
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