执行文本打开窗口解决方案

执行文本打开窗口
有两个窗口 FORM1 和 FORM2  

FORM1里面有 Text1 和 Command1

private sub form_load()

Text1.text="FORM2.SHOW"

end sub



private sub command1_click()

text1'执行打开窗口 FORM2.SHOW

end sub

请问各位大哥，有什么办法吗？

[解决办法]
最多只能做到这样：

VB code

Dim frmTemp As FormFor Each frmTemp In Forms    If UCase(frmTemp.Name) = "FORM2" Then frmTemp.ShowNext
[解决办法]
microsoft script control 1.0控件
VB code
Private Sub form_load()ScriptControl1.AddObject "form2", Form2ScriptControl1.AddObject "form3", Form3Text1.Text = "FORM2.SHOW"End SubPrivate Sub command1_click()ScriptControl1.ExecuteStatement Text1End Sub