COM之简单程序（vb）

新建一个Exe工程
再添加一个ActivexDll工程

在Activex工程内修改Class1类明为clsAdd,并添加如下代码
Public Function AddOne(iNum As Integer) As Integer
    AddOne = iNum + 1
End Function
生成dll文件
在Exe工程内添加对工程2的引用(sp要升级到sp4以上可以看到汉字,否则选择比较象得那个),然后添加如下代码
Dim cls1 As New clsAdd
'增加一个CommandButton控件
Private Sub Command1_Click()
    Dim iTestNum As Integer
    iTestNum = 9
    MsgBox cls1.AddOne(iTestNum)
   
End Sub
生成exe文件
运行exe文件