With DataGridView1
            Dim rowNumber As Integer = 1
            For Each row As DataGridViewRow In .Rows
                row.HeaderCell.Value = rowNumber.ToString
                rowNumber += 1
            Next
            .AutoResizeRowHeadersWidth( _
              DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders)
        End With

Salzburger