各位高手请看看，怎样用程序的过程控制表单控件？？？

[bingo2000]

请问怎样用程序的过程控制表单控件？？？
我想用一个主程序控制表单控件，开始用do form调入表，然后用程序里面的过程控制表单控件， 例如

use bb ORDE TAG BH
GO TOP
do form Main_admin
close data
retu

PROC MYPASS
word_1=allt(TEXT1.value)
word_2=allt(TEXT2.value)
loca for allt(xm)=allt(word_1)
DO case
case word_1==""
messagebox("对不起！请重新输入",0+48+0,"注意")
.TEXT1.setfocus
retu
case found()=.f.
messagebox("对不起！请重新输入管理员名",0+48+0,"注意")
.TEXT1.value=""
.TEXT2.value=""
.TEXT1.setfocus
retu
case word_2=allt(bh)
messagebox("对不起！请重新输入密码",0+48+0,"注意")
.TEXT2.value=""
.TEXT2.setfocus
retu
otherwise
messagebox("通过",0+48+0,"注意")
retu
ENDCASE
RETU
如后在控件了面调用过程，
如对按钮的 click
WITH THISFORM
=mypass（）
endwith
问题是为什么程序老是提示找不到mypass.prg的？？

[newfang]

是不是超出了它的作用域…………

[bingo2000]

能不能讲具体一点啊？？
我也是菜鸟一只啊，
这方法我是学老师的，
但是还不清楚，

[boomit]

关注。。。

[bingo2000]

弄了一个下午终于知道了，原来要把主窗口form的windowType属性由0模式改为1模式，不过又有问题了，windowType是修改窗体的什么啊