Imports System
Imports System.Text
Class EncoderExample
Public Shared Sub Main()
Dim uni As New UnicodeEncoding()
Dim dec1 As Decoder = uni.GetDecoder()
Dim dec2 As Decoder = Encoding.Unicode.GetDecoder()
Console.WriteLine(dec1.ToString())
Console.WriteLine(dec2.ToString())
Console.WriteLine(dec1.GetHashCode())
Console.WriteLine(dec2.GetHashCode())
End Sub
End Class