activex dll

Question

我想把一个函数做成DLL形式的，请问怎么做，我随便做了一个，但我在新的窗体中已经“引用”了做好的DLL，但程序显示没定义函数，请指教，谢谢！！！
-----"新建一个activex dll工程，添加一个class moudle,写一个public的函数，编译;在窗体中引用该类型库,写set obj = new your_classname，或者不必引用写set obj = createobject("dllname.classname"),然后以obj.function形式即可调用"
-----上面的话我有的看不明白，谁能再详细解释一下，最好有个小例子，容易理解，谢谢

Answer 1

函数定义成public就可以了

Answer 2

新建ACTIVE DLL工程,工程名COM_Test,类名clsAdd,类中粘贴代码:
Option Explicit
Public x, y As Integer
Public Function myAdd() As Integer
myAdd = x + y
End Function
编译得到COM_Test.dll,下面开始注册组件Option Explicit
Dim myAdd As New clsAddPrivate Sub Command1_Click()With myAdd
    .x = Val(Text1.Text)
    .y = Val(Text2.Text)
    Text3.Text = .myAdd
End WithEnd SubPrivate Sub Command2_Click()
Set myAdd = Nothing
End
End SubPrivate Sub Form_Load()
Set myAdd = New clsAdd
End Sub