Private Sub DgvMostrarDatos_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DgvMostrarDatos.RowPostPaint
Dim strRowNumber As String = (e.RowIndex + 1).ToString
While strRowNumber.Length < DgvMostrarDatos.RowCount.ToString.Length
strRowNumber = "0" & strRowNumber
End While
Dim size As SizeF = e.Graphics.MeasureString(strRowNumber, Me.Font)
If DgvMostrarDatos.RowHeadersWidth < CInt(size.Width + 20) Then
DgvMostrarDatos.RowHeadersWidth = CInt(size.Width + 20)
End If
Dim bt As Brush = SystemBrushes.ControlText
e.Graphics.DrawString(strRowNumber, Me.Font, bt, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2))
End Sub
