Imports System Module Program Sub Main(args As String()) Dim lst As List(Of String) = New List(Of String) lst.Add("Windows") lst.Add("macOS") lst.Add("Linux") Console.WriteLine("-- List(Of T) --") For Each item As String In lst Console.WriteLine("List : {0}", item) Next Console.WriteLine("-- List(Of T) -> Array(T) --") Dim ary As String() = lst.ToArray() Console.WriteLine("Count : {0}", lst.Count) For i As Integer = 1 To lst.Count Console.WriteLine("Array({0}) : {1}", i - 1, ary(i - 1)) Next Console.WriteLine("-- Array(T) -> List(Of T) --") Dim lst2 As List(Of String) = New List(Of String)(ary) For Each item As String In lst2 Console.WriteLine("List : {0}", item) Next End Sub End Module