Imports System
Imports System.Collections.Generic
Public Class Test
Public Shared Sub Main()
Dim s1 As String = "vb.net programming"
Dim s2 As String = "ingprogrammi vb.net"
Dim s1_hs As HashSet(Of Char) = New HashSet(Of Char)(s1)
Dim s2_hs As HashSet(Of Char) = New HashSet(Of Char)(s2)
If (s1_hs.SetEquals(s2_hs)) Then
Console.Write("yes")
Else
Console.Write("no")
End If
End Sub
End Class
' run:
'
' yes
'