For Each c As Control In Me.Controls
            c.BackColor = Color.Red
        Next c

foreach (Control c in this.Controls) {
	c.BackColor = Color.Red;
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================

    Private Shadows Sub Shown() Handles MyBase.Shown
 
        SetControlsBackColor(Me.Controls, Color.Red)
 
    End Sub
 
    Private Sub SetControlsBackColor(ByVal Collection As Control.ControlCollection,
                                     ByVal Backcolor As Color)
 
        For Each c As Control In Collection
 
            If c.Controls.Count <> 0 Then
                SetControlsBackColor(c.Controls, Backcolor)
            End If
 
            c.BackColor = Backcolor
 
        Next c
 
    End Sub

 
private new void Shown()
{
	SetControlsBackColor(this.Controls, Color.Red);
 
}
 
 
private void SetControlsBackColor(Control.ControlCollection Collection, Color Backcolor)
{
 
	foreach (Control c in Collection) {
		if (c.Controls.Count != 0) {
			SetControlsBackColor(c.Controls, Backcolor);
		}
 
		c.BackColor = Backcolor;
 
	}
 
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================

Public Class Form1
 
    Private Shadows Sub Shown() Handles MyBase.Shown
 
        ControlIterator.PerformAction(Me.Controls, Sub(c As Control)
                                                       c.BackColor = Color.Green
                                                   End Sub)
 
    End Sub
 
    ' ControlIterator
    ' ( By Elektro )
    '
    ''' <summary>
    ''' Iterates a serie of Controls to perform an operation.
    ''' </summary>
    Public Class ControlIterator
 
        ''' <summary>
        ''' Perform an operation on all the Controls on the specified Control Collection.
        ''' </summary>
        ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
        ''' <param name="Operation">Indicates the Action to perform on the controls.</param>
        ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
        Public Shared Function PerformAction(ByVal ControlCollection As Control.ControlCollection,
                                             ByVal Operation As [Delegate],
                                             Optional ByVal ContainsName As String = Nothing) As Boolean
 
            Return PerformActionOnControls((From c As Object In ControlCollection), Operation, ContainsName)
 
        End Function
 
        ''' <summary>
        ''' Perform an operation on Controls.
        ''' </summary>
        Private Shared Function PerformActionOnControls(ByVal Controls As IEnumerable(Of Object),
                                                        ByVal Operation As [Delegate],
                                                        Optional ByVal ContainsName As String = Nothing) As Boolean
 
            If ContainsName IsNot Nothing Then
                Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
                If Controls.Count = 0 Then Return False
            End If
 
            For Each [Control] As Object In Controls
 
                If [Control].InvokeRequired Then
                    [Control].Invoke(Operation, New Object() {[Control]})
                Else
                    Operation.Method.Invoke(Operation, New Object() {[Control]})
                End If
 
            Next [Control]
 
            Return True
 
        End Function
 
    End Class
 
End Class

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public class Form1
{
 
 
	private new void Shown()
	{
		ControlIterator.PerformAction(this.Controls, (Control c) => { c.BackColor = Color.Green; });
 
	}
 
	// ControlIterator
	// ( By Elektro )
	//
	/// <summary>
	/// Iterates a serie of Controls to perform an operation.
	/// </summary>
	public class ControlIterator
	{
 
		/// <summary>
		/// Perform an operation on all the Controls on the specified Control Collection.
		/// </summary>
		/// <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
		/// <param name="Operation">Indicates the Action to perform on the controls.</param>
		/// <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
		public static bool PerformAction(Control.ControlCollection ControlCollection, Delegate Operation, string ContainsName = null)
		{
 
			return PerformActionOnControls((from c in ControlCollection), Operation, ContainsName);
 
		}
 
		/// <summary>
		/// Perform an operation on Controls.
		/// </summary>
		private static bool PerformActionOnControls(IEnumerable<object> Controls, Delegate Operation, string ContainsName = null)
		{
 
			if (ContainsName != null) {
				Controls = Controls.Where(ctrl => ctrl.name.contains(ContainsName));
				if (Controls.Count == 0)
					return false;
			}
 
 
			foreach (object Control in Controls) {
				if (Control.InvokeRequired) {
					Control.Invoke(Operation, new object[] { Control });
				} else {
					Operation.Method.Invoke(Operation, new object[] { Control });
				}
 
			}
 
			return true;
 
		}
 
	}
	public Form1()
	{
		Shown += Shown;
	}
 
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================
 

For X As Integer = 0 To Elementos.Count - 1 Step 4
 
    MessageBox.Show(
        String.Format("{0} {1} {2} {3}",
                      Elementos(X),
                      If(Not (X + 1) >= Elementos.Count, Elementos(X + 1), String.Empty),
                      If(Not (X + 2) >= Elementos.Count, Elementos(X + 2), String.Empty),
                      If(Not (X + 3) >= Elementos.Count, Elementos(X + 3), String.Empty), "Cuatro Elementos"))
 
Next X

For X As Integer = 0 To Elementos.Count - 1 Step 4
 
    ListBox1.Items.Add(
        String.Format("{0} {1} {2} {3}",
                      Elementos(X),
                      If(Not (X + 1) >= Elementos.Count, Elementos(X + 1), String.Empty),
                      If(Not (X + 2) >= Elementos.Count, Elementos(X + 2), String.Empty),
                      If(Not (X + 3) >= Elementos.Count, Elementos(X + 3), String.Empty)))
 
Next X