Imports System
Imports System.Collections
Public Class SamplesHashtable
Public Shared Sub Main()
Dim myHT As New Hashtable()
myHT.Add(0, "zero")
myHT.Add(1, "one")
myHT.Add(2, "two")
myHT.Add(3, "three")
myHT.Add(4, "four")
Dim mySyncdHT As Hashtable = Hashtable.Synchronized(myHT)
If mySyncdHT.IsSynchronized Then
Console.WriteLine("synchronized")
Else
Console.WriteLine("not synchronized")
End If
End Sub
End Class