Public Class frmTest2
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
    Dim WithEvents dgv As New DataGridView With {.Parent = Me, .DataSource = bs}
 
 
    Private Sub frmTest2_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        dt.Columns.Add("Spalte1", GetType(String))
        dt.Columns.Add("Spalte2", GetType(String))
        dt.Columns.Add("Spalte3", GetType(String))
 
        dt.Rows.Add({"a", "b", "c"})
        bs.DataSource = dt
 
    End Sub
 
 
 
    Private Sub dgv_CellPainting(sender As Object, e As _
      DataGridViewCellPaintingEventArgs) 
          Handles dgv.CellPainting
 
      If e.RowIndex = -1 And e.ColumnIndex = 1 Then
 
         e.PaintBackground(e.CellBounds, True)
         e.Graphics.TranslateTransform(e.CellBounds.Left, e.CellBounds.Bottom)
         e.Graphics.RotateTransform(270)
         Dim x As Integer = (CInt(dgv.Columns(e.ColumnIndex).Width -  
           e.Graphics.MeasureString(e.FormattedValue.ToString, _
             e.CellStyle.Font).Height) \ 2)
 
         e.Graphics.DrawString(e.FormattedValue.ToString, e.CellStyle.Font, _
           Brushes.Black, 5, x)
         e.Graphics.ResetTransform()
         e.Handled = True
 
        End If
    End Sub
 
End Class