Colorir linha do DataGridView

Dim i As Integer
For i = 0 To GridAulasMarcadas.RowCount - 1
Dim Tipo As String = GridAulasMarcadas.Rows(i).Cells(7).Value
If Tipo = "Flexivel" Then
GridAulasMarcadas.Rows(i).DefaultCellStyle.BackColor = Color.PaleTurquoise
ElseIf Tipo = "Reposição" Then
GridAulasMarcadas.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
End If
Next

Olá amigos do fórum, estou usando esse código para colorir o meu grid conforme o status da aula, mas a função só funciona se eu carregar o grid através de um button.click, gostaria de saber se tem alguma coisa errada na função pois gostaria que o grid já carregasse colorido.

Obrigado.