应用程序窗体

Dim frmtest As Object
private Sub Command1_Click()
Set frmtest = oSys.frmObject
frmtest.Show
End Sub

'类模块

Public frmObject As Object
Private Sub Class_Initialize()
Set frmObjec = form1
Private Sub

'执行后类模块的form1就显示出来了