Private Sub DataGridView1_RowPostPaint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
        Dim g As Graphics = DataGridView1.CreateGraphics

        Dim altezza As Integer = e.RowBounds.Height
        Dim larghezza As Integer = e.RowBounds.Width
        Dim x As Integer = e.RowBounds.X + 50
        Dim y As Integer = e.RowBounds.Y + 1

        g.FillRectangle(Brushes.Red, New Rectangle(x, y, 160, altezza - 3))
        g.DrawString("riga " & e.RowIndex, New Font("Arial", 10), Brushes.White, New Point(x + 20, y + 1))
        g.Dispose()
    End Sub