主题：如何在集合里取不重复值

Dim ls As New List(Of String)
For Each dr As DataRow In drs  
    If ls.Contains(dr("samplepart")) = False Then       
        ls.add(dr("samplepart"))      
    End If   
Next