1.在vb中选择new project-> activex dll
这样建立后的工程中会有一个类叫做class12.添加一个求和的方法
Public Function sum(ByVal a As Integer, ByVal b As Integer) As Integer
    sum = a + b
End Function3.选择菜单中生成project1.dll4.新建另外一个工程standard exe
5.project菜单->references,选中project1
  加入刚行创建的dll6.在窗体中添加按钮及处理代码
Private Sub Command1_Click()
    Dim x As New Project1.Class1   '创建对象
    MsgBox CStr(x.Sum(5, 7))        '调用对象方法完成工作
    Set x = Nothing                   '释放对象
End Sub这样就可以了,这是一个放在dll中的组件