动态创建窗体

Question

strstring as string 
现在strstring保存着窗体的name
现在我要如何打开strstring所指的窗体？急！！在线等

Answer 1

dim fm as form
for each fm in forms
    if fm.name=strstring then fm.show
next

Answer 2

Option  Explicit  
 
Private  Function  ShowNamedForm(strForm  As  String)  As  Form  
       Dim  frmTemp  As  Form  
         
       Set  frmTemp  =  Forms.Add(strForm)  
       frmTemp.Show  
       Set  ShowNamedForm  =  frmTemp  
End  Function  
 
Private  Sub  Command1_Click()  
       ShowNamedForm  Text1.Text  
End  Sub  
 
Private  Sub  Form_Load()  
       Text1.Text  =  "Form2"  
End  Sub