Dim AppClass As Object
Set AppClass = CreateObject("应用程序名.类名")
AppClass.方法
举例:编制了DLL,应用程序名为Test,包换类CLASS1,CLASS1的方法有showMsg,显示"Hello,World"。
具体编程代码:sub Test()
Dim AppClass As Object
Set AppClass = CreateObject("Test.class1")
AppClass.showmsg
end sub
执行则显示消息框"Hellow,World!"
*********************************************************
西北凡人---http://www.abofanyi.com/blog