Imports System
Imports System.Collections.Generic
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim set1 As ISet(Of Integer) = New HashSet(Of Integer)() From {
1,
2,
3,
4,
5,
6
}
Dim set2 As ISet(Of Integer) = New HashSet(Of Integer)() From {
2,
4
}
Dim result As Boolean = set2.IsSubsetOf(set1)
Console.WriteLine(result)
End Sub
End Class
' run:
'
' True
'