Imports System
Imports System.Collections.Generic
Public Class Program
Public Shared Sub addToSet(ByVal arr As Integer(), ByVal hset As HashSet(Of Integer))
For i As Integer = 0 To arr.Length - 1
hset.Add(arr(i))
Next
End Sub
Public Shared Sub Main()
Dim arr As Integer() = {1, 5, 7, 3, 9, 8, 0, 2}
Dim hset As HashSet(Of Integer) = New HashSet(Of Integer)()
addToSet(arr, hset)
For Each item In hset
Console.Write(item & " ")
Next
End Sub
End Class
' run:
'
' 1 5 7 3 9 8 0 2
'