List the Unicode code point of each of the control characters.
Module ControlChars Public Sub Main() Dim charsWritten As Integer = 0
For ctr As Integer = &H0 To &HFFFF Dim ch As Char = Convert.ToChar(ctr)
If Char.IsControl(ch) Then
Console.Write("\U{0:X4} ", ctr)
charsWritten += 1 If (charsWritten Mod 6) = 0 Then
Console.WriteLine() End If End If
Next End Sub End Module