Public Class Form1
    Dim WithEvents dtgw As New DataGridView
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Controls.Add(dtgw)
        Me.Width = 510
        With dtgw
            .Size = New Size(500, 200)
            .ColumnHeadersVisible = False  'Oculta las cabeceras horizonteles
            .RowHeadersVisible = True
            .GridColor = Color.White  'Color de las rejillas
            .ColumnCount = 3 
            .Columns.Item(0).Name = "Columna 1"
            .Columns.Item(1).Name = "Columna 2"
            .Columns.Item(2).Name = "Columna 3"
            .RowCount = 10
            .RowHeadersWidth = 80
            For Index As Integer = 0 To 9
 
                .Rows.Item(Index).HeaderCell.Value = "Fila " & Index + 1
            Next
        End With
 
         For columna = 0 To 2
            For fila = 0 To 9
                dtgw.Item(columna, fila).Value = "contenido c" & columna & "- f" & fila
            Next fila
        Next columna
 
 
    End Sub
End Class

    Private Sub dtgw_RowPrePaint(sender As Object, e As DataGridViewRowPrePaintEventArgs) Handles dtgw.RowPrePaint
       e.PaintHeader(DataGridViewPaintParts.Background _
                      Or DataGridViewPaintParts.Border _
                      Or DataGridViewPaintParts.Focus _
                      Or DataGridViewPaintParts.SelectionBackground _
                      Or DataGridViewPaintParts.ContentForeground)
        e.Handled = True
    End Sub
    Private Sub dtgw_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles dtgw.CellFormatting
        'Texto de la cabecera de la fila
        'dtgw.Rows(e.RowIndex).HeaderCell.Value = "Fila-" & e.RowIndex.ToString()
    End Sub