For Each...Next and While... End While

For Each...Next

Module loops
   Sub Main()
      Dim anArray() As Integer = {1, 3, 5, 7, 9}
      Dim arrayItem As Integer
     'displaying the values
      For Each arrayItem In anArray
          Console.WriteLine(arrayItem)
      Next
      Console.ReadLine()
   End Sub
End Module

While... End While

Module loops

   Sub Main()

      Dim a As Integer = 10

      ' while loop execution '

      While a < 20

          Console.WriteLine("value of a: {0}", a)

          a = a + 1

      End While

      Console.ReadLine()

   End Sub

End Module

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