For i = 0 To AllButtons.Count - 1
  Dim b = AllButtons(i)
  b.Text = "Ich bin Button " & (i + 1)
  b.ForeColor = Color.Blue
Next

For Each b In AllButtons
  If b.Name.StartsWith("Bu") Then
    b.Text = "Ich bin ein Button, dessen Name mit Bu beginnt."
    b.ForeColor = Color.Green
  End If
Next

For Each b In AllButtons
  Select Case b.Name
    Case "Button1", "Button2"
      b.Text = "Ich bin Button 1 oder 2."
    Case "Button4"
      b.Text = "Ich bin Button 4."
    Case Else
      b.Text = "Ich bin auch ein Button."
  End Select
Next

Dim AllButtons = {Me.Button1, Me.Button2, Me.Button3, Me.Button4}