Imports System
Imports System.Collections.Generic
Public Class Program
Public Shared Sub Main()
Dim lst As New List(Of String) From {"vb.net", "c", "c++", "c#", "java"}
Dim i As Integer = 0
Do While (i < lst.Count)
Console.WriteLine(lst(i))
i = i + 1
Loop
End Sub
End Class
' run:
'
' vb.net
' c
' c++
' c#
' java
'