动态创建窗体
strstring as string
现在strstring保存着窗体的name
现在我要如何打开strstring所指的窗体？急！！在线等
[解决办法]
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
