>For a couple of reasons, the most important being that the ! is ignored if you paste text.
It works for me
loForm = Createobject('myForm')
loForm.Show(1)
define class myForm as Form
add object text1 as textbox
add object text2 as textbox with top = 20, format = "!"
enddefine
Pasting in lower case remains lower case in text1 but is converted to uppercase in text2
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges