Visual Basic.NET - Numerar Celdas Datagridview

Hola!
Buen día!!!....
Ésta vez vengo con lo siguiente:

Tengo mi Datagridview con varias celdas por fila, en la primer celda de la primer fila, tengo el texto: "1"

Ahora, como puedo hacer para que en la siguiente fila que agregue, o sea la fila no. 2, la primer celda tenga el texto: "2"...
y asi sucesivamente: 3er fila sea: "3"... 4ta fila sea: "4"
Hasta las que sean necesarias agregar...

He intentado con un ciclo for y con If, pero aún nada... no doy con bola ....

Agradecería me pudieran ayudar...

De antemano muchas gracias!
Que tengan un excelente día...
Un beso....

For i As Integer = 0 To Me.DataGridView1 -1
Me.DataGridView1.Item(0, i).Value = i + 1
Next

Funciona?

Es lo que Buscas Lilia....!

Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
Try
If e.RowIndex = 0 Then
Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value = 1
Else
Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value = e.RowIndex + 1
End If
Catch ex As Exception
End Try
End Sub

espero te ayude hasta pronto..................!

alli esta desde un boton, si es asi como lo querias verdad

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.DataGridView1.Rows.Add()
If Me.DataGridView1.Rows.Count = 0 Then
Me.DataGridView1.Rows(Me.DataGridView1.Rows.Count - 1).Cells(0).Value = 1
Else
Me.DataGridView1.Rows(Me.DataGridView1.Rows.Count - 1).Cells(0).Value = Me.DataGridView1.Rows.Count - 1
End If
End Sub

Hola!!!
Muchas gracias por responder!!!!

En efecto P.J. pss nomás no..... no me dejó asi...

Pero ya probando lo de Huguin, funcionó perfecto!!!

Mil gracias por estar aqui ;)....

Muchas gracias!!!

Solo que en mi caso muy particular tengo que el usuario no pueda agregar filas sino que las voy agregando y que me empiece de "1" , en mi celda 1, por lo tanto me ha quedado asi:

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Sub btnagregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnagregar.Click

'Agrega una nueva fila al Datagridview
Me.dgv_ruta.Rows.Add()

'Y a partir de aquí la respuesta a mi Tema:
If Me.dgv_ruta.Rows.Count = 1 Then
Me.dgv_ruta.Rows(Me.dgv_ruta.Rows.Count - 1).Cells(1).Value = 1
Else
Me.dgv_ruta.Rows(Me.dgv_ruta.Rows.Count - 1).Cells(1).Value = Me.dgv_ruta.Rows.Count
End If

End Sub
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Espero les sea de utilidad...

Muchas gracias por su ayuda..

Que estén muy bien!!!!
Un beso!!!
Robes thanks!!!
Tamos pendientes ......
Que tengan un excelente día!!!!