Картинка и текст в заголовке datagridview

 Private Sub DataGridView1_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
        If e.ColumnIndex = 0 AndAlso e.RowIndex = -1 Then
            e.PaintBackground(e.ClipBounds, False)
            Dim pt As Point = e.CellBounds.Location ' where you want the bitmap in the cell
            Dim offset As Integer = (e.CellBounds.Width - Me.ImageList1.ImageSize.Width) \ 200
            pt.X += offset
            pt.Y += 1
            Me.ImageList1.Draw(e.Graphics, pt, 0)
            e.Handled = True
        End If
    End Sub

  Private Sub DataGridView1_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
        If e.ColumnIndex = 0 AndAlso e.RowIndex = -1 Then
            DataGridView1.ColumnHeadersHeight = 16
            Dim img As Image = My.Resources.img1
            Dim r32 As New Rectangle(e.CellBounds.Left + e.CellBounds.Width - 240, 3, 32, 32) ' положение картинки на заголовке
            Dim r96 As New Rectangle(0, 0, 32, 32)
            Dim header As String = DataGridView1.Columns(e.ColumnIndex).HeaderText
            e.PaintBackground(e.CellBounds, True)
            e.PaintContent(e.CellBounds)
            e.Graphics.DrawImage(img, r32, r96, GraphicsUnit.Pixel)
            e.Handled = True
        Else
            e.Handled = False
        End If
    End Sub