imports System
Module CharStructure
Public Sub Main()
Dim chA As Char
chA = "A"c
Dim ch1 As Char
ch1 = "1"c
Dim str As String
str = "test string"
Console.WriteLine(chA.CompareTo("B"c))
Console.WriteLine(chA.Equals("A"c))
Console.WriteLine(Char.GetNumericValue(ch1))
Console.WriteLine(Char.IsControl(Chr(9)))
Console.WriteLine(Char.IsDigit(ch1))
Console.WriteLine(Char.IsLetter(","c))
Console.WriteLine(Char.IsLower("u"c))
Console.WriteLine(Char.IsNumber(ch1))
Console.WriteLine(Char.IsPunctuation("."c))
Console.WriteLine(Char.IsSeparator(str, 4))
Console.WriteLine(Char.IsSymbol("+"c))
Console.WriteLine(Char.IsWhiteSpace(str, 4))
Console.WriteLine(Char.Parse("S"))
Console.WriteLine(Char.ToLower("M"c))
Console.WriteLine("x"c.ToString())
End Sub
End Module