Public Class Form1
    Private WithEvents DGV As DataGridView
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        DGV = New DataGridView
 
        With DGV
            .ColumnCount = 1
            .Columns(0).Name = "Spalte 0"
        End With
 
        Me.Controls.Add(DGV)
 
    End Sub
    Private Sub DGV_CellFormatting(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DataGridViewCellFormattingEventArgs)
        With DGV
 
            .Columns(0).DefaultCellStyle.BackColor = Color.Brown
 
            ' Zeilenumbruch für Spalte 1 einstellen
            .Columns(0).DefaultCellStyle.WrapMode = DataGridViewTriState.True
 
            ' Abstand zwischen Text und Zellenbegrenzung für Spalte 1 einstellen
            .Columns(0).DefaultCellStyle.Padding = New Padding(7, 3, 7, 3)
 
            ' Spaltenbreite und Zeilenhöhe an die jeweiligen Zelleninhalte 
            ' anpassen
            .AutoSizeRowsMode = _
              DataGridViewAutoSizeRowsMode.AllCellsExceptHeaders
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
            .AutoResizeColumns()
            .AutoResizeRows()
 
        End With
    End Sub
End Class