'应用程序窗体
Dim frmtest As Object
Dim oSys As Object
Private Sub Form_Load()
Set oSys = CreateObject("SYS.System")
     If oSys Is Nothing Then
          MsgBox "缺少dll文件"
          End
     End If
end if


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就显示出来了