>I created a class addin a property called lCaps
>
>At GotFocus I have the next code:
>
>

>This.lCaps = Capslock(.T.)
>

>
>And at LostFocus
>

> = Capslock(This.lCaps)
>

The problem with this approach, is that if your customer really holds down the Caps key, the characters will be lower case! So Naomi's solution is the best (and that's also exactly how I handle it myself <vbg>)