vAnzahl = 3
vRest = 3
...
If e.RowINdex = 0 then Exit Sub
If vRest = vAnzahl then ' für den ersten Durchgang
For I As Integer = 1 to vAnzahl
  For Z As Integer = 0 to GridVerlauf.Rows(e.RowIndex).Cells.Count - 1 'alle 
  ' zellen der Zeile
    GridVerlauf.Item(Z,e.RowIndex).Style BackColor = Color.Lime
    If e.Columnindex = 1 Then
      GridVerlauf.Item(e.ColumnIndex, e.RowIndex).Value = I
      vRest = vRest - 1
    End If
  Next
Next
End If

~ no brain, no headache ~