Изменить свойство с помощью цикла

Question

Мне было интересно, если есть способ сжать мой код с помощью цикла, это мой код: (Cell_1_Containes - это RichTextBox)

    Cell_1_Containes.Text = My.Computer.FileSystem.ReadAllText(MyLocation + "\Main\Cells\Cell 1\Containes.txt")
    Cell_2_Containes.Text = My.Computer.FileSystem.ReadAllText(MyLocation + "\Main\Cells\Cell 2\Containes.txt")
    Cell_3_Containes.Text = My.Computer.FileSystem.ReadAllText(MyLocation + "\Main\Cells\Cell 3\Containes.txt")
    Cell_4_Containes.Text = My.Computer.FileSystem.ReadAllText(MyLocation + "\Main\Cells\Cell 4\Containes.txt")
    Cell_5_Containes.Text = My.Computer.FileSystem.ReadAllText(MyLocation + "\Main\Cells\Cell 5\Containes.txt")
    Cell_6_Containes.Text = My.Computer.FileSystem.ReadAllText(MyLocation + "\Main\Cells\Cell 6\Containes.txt")
    Cell_7_Containes.Text = My.Computer.FileSystem.ReadAllText(MyLocation + "\Main\Cells\Cell 7\Containes.txt")
    Cell_8_Containes.Text = My.Computer.FileSystem.ReadAllText(MyLocation + "\Main\Cells\Cell 8\Containes.txt")
    Cell_9_Containes.Text = My.Computer.FileSystem.ReadAllText(MyLocation + "\Main\Cells\Cell 9\Containes.txt")
    Cell_10_Containes.Text = My.Computer.FileSystem.ReadAllText(MyLocation + "\Main\Cells\Cell 10\Containes.txt")

Answer 1

Dim cells() As Control = {Cell_1_Containes, Cell_2_Containes,Cell_3_Containes,Cell_4_Containes,Cell_5_Containes,Cell_6_Containes,Cell_7_Containes,Cell_8_Containes,Cell_9_Containes,Cell_10_Containes}
For i As Integer = 0 To 9
    cells(i).Text = My.Computer.FileSystem.ReadAllText(Path.Combine(MyLocation, $"Main\Cells\Cell {i+1}\Containes.txt"))
Next