Изменить цвет колонки DataGridView

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Column3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Column4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Column5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Column6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        dgw.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2, Me.Column3, Me.Column4, Me.Column5, Me.Column6})
        dgw.RowCount = 6
        For i As Integer = 0 To 5
            For j As Integer = 0 To 5
                dgw(j, i).Value = 12345
            Next
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Cell As DataGridViewCell
        'Закрашиваем строку 4 в желтый цвет
        For Each Cell In dgw.Rows(3).Cells
            Cell.Style.BackColor = Color.Yellow
        Next
    End Sub
End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim st As New DataGridViewCellStyle
        st.BackColor = Color.Yellow
       
        dgw.Rows(0).Cells(3).Style = st
        dgw.Rows(1).Cells(3).Style = st
        dgw.Rows(2).Cells(3).Style = st
        dgw.Rows(3).Cells(3).Style = st
        dgw.Rows(4).Cells(3).Style = st
        dgw.Rows(5).Cells(3).Style = st
    End Sub

Dim st As New DataGridViewCellStyle With {.BackColor = Color.Yellow}
 
    Private Sub dgv_CellPainting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles dgv.CellPainting
        If e.ColumnIndex > -1 AndAlso e.RowIndex > -1 Then
            If e.ColumnIndex = 3 Then
                dgv(e.ColumnIndex, e.RowIndex).Style = st
            End If
        End If
    End Sub

Dim Style_Y As New DataGridViewCellStyle With {.BackColor = Color.Yellow}   'Стиль фона = жёлтый
For m = 0 To 9999
     DataGridView_Temp.Item(1, m).Style = Style_Y
Next m

DataGridView1.Columns(0).DefaultCellStyle.BackColor = Color.Red