Imports System

Imports System.Linq

Imports System.Collections.Generic

​

Public Module Module1

    Public Sub Main()

        Dim strList = New List(Of string) From {"One", "Three", "Two", "Two", "One" }

​

        Dim distinctStr = From s In strList _

                          Select s Distinct

        for each str in distinctStr

            Console.WriteLine(str)

        Next

    End Sub

End Module