Dim controlRectangle As Rectangle Dim i As Integer = 0 While i < Controls.Count controlRectangle = Controls(i).RectangleToScreen(Controls(i).ClientRectangle) If controlRectangle.IntersectsWith(theRectangle) Then Controls(i).BackColor = Color.BurlyWood End If System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1) End While