Public Class gridtest
 
    Private Sub gridtest_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        Dim i As Integer
 
        i = i / 0
 
        DataGridView1.Columns(1).Frozen = True
        DataGridView1.Rows.Add("TEST", "TEST2")
        DataGridView1.Rows(0).Cells(0).Style.BackColor = Color.Aqua
 
    End Sub
 
End Class