Mega Code Archive
CaseInsensitiveComparer Class compares two objects for equivalence, ignoring the case of strings
Imports System
Imports System.Collections
Imports System.Globalization
Public Class SamplesHashtable
Public Shared Sub Main()
Dim myHT2 As New Hashtable(New CaseInsensitiveHashCodeProvider(), New CaseInsensitiveComparer())
myHT2.Add("FIRST", "Hello")
myHT2.Add("SECOND", "World")
myHT2.Add("THIRD", "!")
End Sub 'Main
End Class 'SamplesHashtable