How to set a field to Caps or TitleCaps

[FlexibleLearning at aol.com]

Anyone figured out how to force a field to  display text as Caps only, or as 
TitleCaps, whatever the state of the capsLock  key, AND as the user is typing? 
It's this last bit that has me beat at the  moment.  

This doesn't work but I wish it did as a starting point...
on keyDown tk
put toUpper(tk) into tk
pass  keyDown
end keyDown
 
/H