Imports System
Imports System.Globalization
Imports Microsoft.VisualBasic
Public Class SamplesCharUnicodeInfo
Public Shared Sub Main()
PrintProperties(ChrW(&H0393))
End Sub 'Main
Public Shared Sub PrintProperties(c As Char)
Console.Write(" {0,-5}", CharUnicodeInfo.GetNumericValue(c))
Console.Write(" {0,-5}", CharUnicodeInfo.GetDigitValue(c))
Console.Write(" {0,-5}", CharUnicodeInfo.GetDecimalDigitValue(c))
Console.WriteLine("{0}", CharUnicodeInfo.GetUnicodeCategory(c))
End Sub
End Class