首先，我们启动VS(Visual-Studio简称)，我使用的是VS2008版本。
新建一个项目-选择内裤（额...不好意思）→类库 ，名称就默认吧.
编写类库没有窗体设计，因此我们不能使用工具箱中的控件..
类库支持Function函数，Sub过程等等....
·我们写个获取程序MD5（我有过一篇曾介绍过http://hi.baidu.com/lipeiyi2006/blog/item/6e63fb1c279ef18086d6b607.html）的Function函数
完整代码如下：
Imports System.IO
Imports System.Security.Cryptography
Public Class Class1
Public Function MD5(ByVal Path As String) As String
Dim fstream As New FileStream(Path, _
FileMode.Open, _
FileAccess.Read)
Dim dataToHash(fstream.Length - 1) As Byte
fstream.Read(dataToHash, 0, fstream.Length)
fstream.Close()
Dim hashvalue As Byte() = CType(CryptoConfig.CreateFromName("MD5"), HashAlgorithm).ComputeHash(dataToHash)
Dim i As Integer
Dim result As String = ""
For i = 0 To hashvalue.Length - 1
result += Hex(hashvalue(i)).ToLower
Next
Return result
End Function '返回MD5值
End Class
PS：如果复制的格式不正确请自行修改。
我们保存之后，选择 “生成-生成ClassLibrary1"
在对应的保存目录下找到"ClassLibrary1.dll"，这就是你已经写好的DLL了.
将其复制到Windows目录下，为了避免找不到文件。
在次新建一个工程，选择"Windows窗体应用程序"
如图。
点击菜单中的 "项目-添加引用-浏览"找到你的ClassLibrary1.dll
你可以在"对象浏览器"中查看DLL函数
在Button1的Click事件中写入代码.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myDll As New ClassLibrary1.Class1'注意要使用New关键字实例化
Dim FilePath As String = ""
FilePath = InputBox("请输入要获取MD5文件地址", "")
MsgBox(myDll.MD5(FilePath))
End Sub
End Class
运行程序，效果如下：
好了，很简单吧！
在程序中应用DLL出来上述方法外还可以使用Declare语句引用..
你可以写其它函数包装在一个DLL中共同分享吧！
