应用程序窗体 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就显示出来了