动态创建窗体
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