1> 创建ActiveX Dll项目，项目重命名为ExampleProject，类重命名为ExampleClass
2> 创建方法：
Option Explicit
Public Function ExampleMethod(ByVal strName As String, ByVal iAge As Integer, Optional ByVal bAgeEmphasisOn As Boolean = False) As String
Dim strReturnString As String
strReturnString = strName & " is over " & CStr(iAge * 365)
If bAgeEmphasisOn And iAge > 45 Then
strReturnString = strReturnString & " days OLD."
Else
strReturnString = strReturnString & " days old."
End If
ExampleMethod = strReturnString
End Function
3> 编译生成ExampleProject.dl
4> 用regsvr32注册它.
5> 在asp中调用：
<%
Set objRef = Server.CreateObject("ExampleProject.ExampleClass")
Name = "SilvaXia"
Age = 26
Emphasis = True
strResult = objRef.ExampleMethod(Name,Age,Emphasis)
Response.Write(strResult)
Set objRef = Nothing
%>
6> 把asp放到虚拟目录，运行。
7> 在.Net中调用：
首先添加对ExampleProject.dl的引用，然后：
Module Module1
Sub Main()
TestCom()
End Sub
Public Function TestCom()
Dim test As ExampleProject.ExampleClassClass = New ExampleProject.ExampleClassClass
Console.Write(test.ExampleMethod("SilvaXia", 67, True))
End Function
End Module