新建一个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文件