Imports System
Imports System.Text
Class UnicodeEncodingExample
Public Shared Sub Main()
Dim unicode1 As New UnicodeEncoding()
Dim unicode2 As Encoding = Encoding.Unicode
Console.WriteLine(unicode1.GetHashCode())
Console.WriteLine(unicode2.GetHashCode())
End Sub
End Class