'function 'Check_DuplicateValues' will return true if array contains duplicate value otherwise function will return false
Function Check_DuplicateValues(ByVal temp_Arr As Array) As Boolean
Dim hash_Table As New Collections.Hashtable(temp_Arr.Length * 2)
For i As Integer = 0 To temp_Arr.Length - 1
Dim value As Object = temp_Arr.GetValue(i)
If hash_Table.Contains(value) Then
Return True
Else
hash_Table.Add(value, Nothing)
End If
Next
End Function