_Screen.AddObject("txt","textbox") _screen.txt.Fontcharset = 161 For t=32 to 255 _screen.txt.value = _screen.txt.value + Chr(t) EndFor _screen.txt.Width = _Screen.Width _screen.txt.Visible = .T.It won't work if you need to combine this with accented characters, though, or if the symbols are not Greek.