Visual Basic.NET - Ayuda Como hacer un arreglo para cambiar color en botones???

Private Sub CambiarColorBotones()

        Button1.BackColor = Color.Green

        Button2.BackColor = Color.Green

        Button3.BackColor = Color.Green

        Button4.BackColor = Color.Green

        Button5.BackColor = Color.Green

        Button6.BackColor = Color.Green

        Button7.BackColor = Color.Green

        Button8.BackColor = Color.Green

        Button9.BackColor = Color.Green

        Button10.BackColor = Color.Green

        Button11.BackColor = Color.Green

        Button12.BackColor = Color.Green

        Button13.BackColor = Color.Green

        Button14.BackColor = Color.Green

        Button15.BackColor = Color.Green

        Button16.BackColor = Color.Green

        Button17.BackColor = Color.Green

        Button18.BackColor = Color.Green

        Button19.BackColor = Color.Green

        Button20.BackColor = Color.Green

        Button21.BackColor = Color.Green

        Button22.BackColor = Color.Green

        Button23.BackColor = Color.Green

        Button24.BackColor = Color.Green

        Button25.BackColor = Color.Green

        Button26.BackColor = Color.Green

        Button27.BackColor = Color.Green

        Button28.BackColor = Color.Green

        Button29.BackColor = Color.Green

        Button30.BackColor = Color.Green

        Button31.BackColor = Color.Green

        Button32.BackColor = Color.Green

        Button33.BackColor = Color.Green

        Button34.BackColor = Color.Green

        Button35.BackColor = Color.Green

        Button36.BackColor = Color.Green

        Button37.BackColor = Color.Green

        Button38.BackColor = Color.Green

        Button39.BackColor = Color.Green

        Button40.BackColor = Color.Green

    End Sub

For Each btn In TuContenedor.Controls.OfType(Of Button)()

             btn.BackColor= Color.Green

Next

Dim Botones() As Button = {Button1, Button2, Button3, Button4, Button5}

For i = 0 To 4

    Botones(i).BackColor = Color.Green

Next