在class-form1类中有一个sub up（），一个bool为boolean初始直为false，一个button1-click，如果bool为true是sub up（）运行，然后我点击form1上的button1，出现form2，form2上有一个button2，当我点击button2后，想使class-form1类中的bool为true，然后在class-form1类中（或说在form1上）运行sub up（），form2关闭，请问怎么做？
我先在这里谢过了！

module shared

public bool as boolean

end module

虽然他设置了共有的boolean变量，但是他还是控制不了form1里的控件。

在button1-click中添加代码：
dim frm2 as new form2
frm2.frm1=me
frm2.showdialog()

在form2中定义全局变量：
public frm1 as new form1

在button2-click中添加代码：
frm1.bool=true
frm1.up()
me.close