For...Next

For...Next

Module loops
   Sub Main()
      Dim a As Byte
      ' for loop execution
      For a = 10 To 20
          Console.WriteLine("value of a: {0}", a)
      Next
      Console.ReadLine()
   End Sub
End Module

OR

Module loops
   Sub Main()
      Dim a As Byte
      ' for loop execution
      For a = 10 To 20 Step 2
          Console.WriteLine("value of a: {0}", a)
      Next
      Console.ReadLine()
   End Sub
End Module

https://www.youtube.com/channel/UCKLRUr6U5OFeu7FLOpQ-FSw/videos