小弟刚学VB不久，以下菜鸟问题请各位大侠指教：如何用VB实现COM DLL，请给出一个代码示例，万分感谢！！！1

Question

                        Dim doc as Object
                        Set doc = Application.ActiveDocument
                        doc.Activate

Answer 1

是想用COM和VB6实现集中监控软件设备动态添加。程序划分成两大块：一是主程序（包括和用户的通信，定时巡检向下要数据），另一块是设备模块（即指电信机房中的各种配套智能设备：UPS，中央空调，配电等）。现在是要把各个不同设备作成DLL，以供主程序运行时调用，想用COM是打算提供一个通用的调用接口。主程序调用DLL中的两个函数和两个数组（不同设备通讯协议不同）。
毛毛虫你不是开我玩笑吧？你真的开玩笑吗？开玩笑就应该写几句话吗。你不写我怎么知道你在开玩笑呢？你一定不是在开玩笑，你是..........................................

Answer 2

不知道你现在会了没有,我给你一个极其简单的例子
'工程ServerExample1:定义接口
'类型: ActiveX Dll'类模块IEquipment:通用接口
'Instancing = MultiUse
Public Function PowerOn(Args As Variant)As Boolean
    '假设这是一个开电源的方法
End Function
'工程1到此结束'工程ServerExample2:实现接口的一个组件
'类型:ActiveX DLL或ActiveX EXE
'引用:ServerExample1'类模块CTelevision:假设的电视设备
'Instancing = MultiUse
Implements ServerExample1.IEquipmentPrivate Function IEquipment_PowerOn(Args As Variant)As Boolean
    '实现电视打开电源的方法
    '比如打开成功则:
    IEquipment_PowerOn = True
    '否则返回False
End Function
'工程2到此结束
'您还可以定制更多的实现IEquipment的组件类'工程ClientExample:您的主程序示例
'类型:Standard Exe或ActiveX Exe
'引用:ServerExample1, ServerExample2和其他设备'此处您初始化您的设备
Dim TV1 As New ServerExample2.CTelevision
Dim TV2 As New ServerExample2.CTelevision
'没准您还定义了UPS类,如
Dim UPS1 As New ServerExampleN.CUps
'等等,现在定义一个IEquipment的接口对象:
Dim MyEquip As ServerExample1.IEquipment
.....
'这是您要操作电视
Set MyEquip = TV1
MyEquip.PowerOn
.....
'这是您要操作UPS
Set MyEquip = UPS1
MyEquip.PowerOn不知道这个例子是否符合你的要求
    

Answer 3

to Ninputer:
这就是VB的COM吗？因为我手头VB书都没有明确阐明这个问题。引用这里不能用，所谓动态添加是指主程序在运行时，有新设备需监控，则按固定的接口规范发行一个新的DLL，拷到系统或主程序目录，主程序即可实现监控。
您的回应对我很有启发，我再试试吧。