Imports System
Imports System.Collections.Generic
Public Class Test
Public Shared Sub Main()
Dim hset1 = New HashSet(Of Integer)({1, 2, 3, 4, 5})
Dim hset2 = New HashSet(Of Integer)({3, 5, 7, 4, 9})
hset1.IntersectWith(hset2)
For Each item As Integer In hset1
Console.Write("{0}{1}", item, " ")
Next
End Sub
End Class
' run:
'
' 3 4 5
'