Dim unicodetext as string
for i = 33 to 1000
unicodetext = unicodetext & chr(i)
next
EditText1.Text = unicodetext
This will display the first pages of the unicode points within a given font in EditText1. I tested this in the simulator and it is kind of slow, so I limited to 1000. But Unicode can go much higher so you may want to do 1000 to 2000 and up to 3000 as well. All depends on what the font contains.