For i As Integer = 0 To Integer.MaxValue
      Console.WriteLine(i)
    Next