I like to see in every txtbox a big cursor, therefore I use this in every txtbox_gotfocus:

"h& = GetFocus&(): sb& = Picture1.Picture: Call CreateCaret(h&, sb&, 1, 5): sx& = ShowCaret&(h&)"

Can I get this by just type this once in the form ?

Regards, K. Lensen

------------------