如何实现动态显示窗体

Question

Dim oForm As frmain
Set oForm = New frmain
oForm.Show

Answer 1

select case sForm
    case "frmmain"
        fromain.show
    .
    .
    .
End Select

Answer 2

哦，可能诸位误会我的意思了，我的意思是，现在只有sForm这个string变量，程序运行时才知道其变量名称是什么，现在要作的就是，当sForm为“frmmain”时进行frmmain.show,而为其它值如"form1"时进行form1.show,都用程序实现。

Answer 3

写代码dim frmTest as form
for each frmtest in forms
    if frmtest.name=sForm then frmtest.show
next frmtest