如何打开指定的Form?

Question

数据库：
名称   块模名
审计　　form1
评估    form2前台：
用表格显示数据，当点“审计”时，可以显示 form1表单 有没有实现相似 
dim varform as string
varform ="form1"
forms(varform).show 
的这种写法在vb的forms好像只能是已经load的form.
我的数据可能有几十条，如何都把每个form提前load一次好像不实现。

Answer 1

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
    
Private Function ShowForm(ByVal frm As String) As String
    EbExecuteLine StrPtr(frm & ".SHOW"), 0, 0, 0
End Function
    
Private Sub Command1_Click()
    ShowForm "Form2"
End Sub

Answer 2

也可以这样试试：把这些要显示的窗体设为子窗体，在ShowForm函数中遍历所有子窗体，
当子窗体的名称与传递过来的变量名称相同时，显示该子窗体