Imports System
Imports System.Text
Class EncoderExample
Public Shared Sub Main()
Dim uni As New UnicodeEncoding()
Dim enc1 As Encoder = uni.GetEncoder()
Dim enc2 As Encoder = Encoding.Unicode.GetEncoder()
Console.WriteLine(enc1.ToString())
Console.WriteLine(enc2.ToString())
Console.WriteLine(enc1.GetHashCode())
Console.WriteLine(enc2.GetHashCode())
End Sub
End Class