Private Declare Function AAA Lib "Demo" (ByVal A As String) As Boolean
动态调用:
先注册COM组件
调用方法:
dim obj as object
set obj=createobject("工程名.类名")
obj.方法
set obj=nothing