[messry]

حاول الكود التالي

dim ICol = DataGridView1.CurrentCell.ColumnIndex
     dim IrowS = DataGridView1.CurrentCell.RowIndex

For i = ICol To DataGridView1.Columns.Count - 1
DataGridView1.Rows(IrowS).Cells(i).Value = i
if i < 10 then
DataGridView1.Rows(IrowS).Cells(i).Value = "0" & i
end if
Next