Private Sub dgv_CellPainting(sender As Object, _
        e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) _
        Handles dgv.CellPainting
 
        If e.RowIndex = -1 AndAlso e.ColumnIndex >= 0 Then
            Dim col As DataGridViewColumn = dgv.Columns(e.ColumnIndex)
            If col.Selected Then
                e.PaintBackground(e.CellBounds, True)
            Else
                e.PaintBackground(e.CellBounds, False)
            End If
 
            Using br As New SolidBrush(Color.Red)
                Dim p As Point = e.CellBounds.Location
                p.Offset(5, 5)
                'Hier etwas basteln .....
                e.Graphics.DrawString(col.HeaderText, dgv.Font, br, p)
            End Using
            e.Handled = True
        End If
    End Sub