vb中制作dll的方法：新建時(shí)選擇ActiveX Dll
，工程名改為add 把類模塊命名為：myfirstdll （原名為class1）然后就可以寫你的dll內(nèi)容了，比如封裝一個(gè)函數(shù)，這里我們封裝一個(gè)從1加到n的函數(shù)：
Public Function AddN(ByVal n As Integer) As Integer
Dim i As Integer
Dim sum As Integer
For i = 0 To n
sum = i + sum
Next
AddN = sum
End Function
完成保存工作后，選擇“文件”——“生成add.dll”
這樣一個(gè)簡(jiǎn)單的dll完成了。你可以添加多個(gè)函數(shù)，復(fù)雜度任意！這只是以個(gè)簡(jiǎn)單的例子
下面是調(diào)用部分：
假設(shè)你有已經(jīng)有了一個(gè)工程，現(xiàn)在需要引用剛才的dll文件。
選擇“工程”-“引用”，在彈出的對(duì)話框中選瀏覽，選擇你剛才生成的add.dll。點(diǎn)確定。如果說出現(xiàn)工程名稱重復(fù)之類的提示，那是因?yàn)槟愕倪@個(gè)工程，和dll文件的工程名稱一樣了！你改一下工程名就行了，所以不要在新建工程時(shí)偷懶，默認(rèn)的名稱“工程1”會(huì)引起不必要的麻煩??！下面是代碼
在聲明部分（就是代碼的最上面）寫：
Dim testdll As myfirstdll
form的load事件里寫：
Set testdll = New myfirstdll
引用完成了
調(diào)用的代碼：
MsgBox (testdll.AddN(5))