[aljzazy]

كود :

dgv.RowHeadersVisible = True
dgv.RowHeadersWidth = 60
If dgv IsNot Nothing Then
Dim i As Integer ' = 0
While (i <= (dgv.Rows.Count - 1))
dgv.Rows(i).HeaderCell.Value = String.Format((i + 1), "0")
i += 1
End While
End If