怎么自动对表单中的文本框进行操作

如何自动对表单中的文本框进行操作？
情况：表单中有若干文本框，各文本框通过click事件操作，在命令按钮的click事件中调用文本框，其代码：
for each oTxt in thisform.controls &&在表单中的每一个文本框，使用 controls 属性访问所包含对象的属性。
  if proper(oTxt.baseclass) = "Textbox" &&如果基类是文本框
  oTxt.click &&给予焦点
  endif
 endfor
 以前这段程序可以运行的通，当在表单中又增加一些文本框后，新增的文本框无反应。问题在什么地方？请高手指点！谢谢！

------解决方案--------------------------------------------------------

探讨

lygcw9602:谢谢你的指点，成功了。另外还有个问题，近来我所做的这张表单，出现过两次丢失，表单不知何故就不见了。好像vfp后台有消息钩子，自动对程序进行某些调整。可见病毒检测的提示，要求我对其本次操作选择是否允许。一般我见是vfp的程序就选同意了。这时就有可能丢失表单。我现在都不敢选择同意了。