Poner números a las filas de un datagridview

A Continuación tenemos una ejemplo que permite asignar números a las fila del gridview como se muestra el la siguiente imagen.

Código fuente

Private Sub DataGridView1_RowPostPaint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint

Try
       'Captura el numero de filas del datagridview

        Dim RowsNumber As String = (e.RowIndex + 1).ToString

        While RowsNumber.Length < DataGridView1.RowCount.ToString.Length

            RowsNumber = "0" & RowsNumber

        End While

        Dim size As SizeF = e.Graphics.MeasureString(RowsNumber, Me.Font)

        If DataGridView1.RowHeadersWidth < CInt(size.Width + 20) Then

            DataGridView1.RowHeadersWidth = CInt(size.Width + 20)

        End If

        Dim ob As Brush = SystemBrushes.ControlText

        e.Graphics.DrawString(RowsNumber, Me.Font, ob, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2))

Catch ex As Exception

                      MessageBox.Show(ex.Message, "vb.net", _
                   MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

End Sub