Public Property Get Result() As Integer Result = Point End Property
Public Property Get Maxpoint() As Integer Maxpoint = Max End Property
Public Property Let Maxpoint(num As Integer) Max = num End Property
Public Sub Throw() Randomize Point = Int(Rnd * Max) + 1 End Sub
Private Sub Class_Initialize() Max = 6 End Sub
這個類模塊定義了clsDice對象的兩個屬性和一個方法，這些屬性和方法模擬了擲色子的過程。其中Maxpoint屬性表示色子的面數，加入Property Let語句將使客戶能修改色子的面數；Result屬性表示最后擲出色子的點數；Throw方法代表擲色子的動作；Private Sub Class_Initialize語句將色子的面數缺省的設置為6面。
ASP(活動服務器頁面Active Server Pages)的所有代碼都是在服務器上運行的，客戶只能查看以HTML形式傳回的結果。它使用“%”和“%>”標記來標識腳本代碼，并不傳回客戶端，在代碼外部，使用HTML標記來標識內容。在下面Dice.asp的代碼中使用了CreateObject函數創建了一個clsDice對象實例，該對象來自于上面創建的ActiveX.DLL--MYDLL.DLL文件，下面的例子使用了VBScript腳本語言。
!--METADATA TYPE="typelib" FILE="Path/mydll.dll" --> '裝載 METADATA 標簽中指定的類型庫。 Path是mydll.dll在機器上存放的路徑 html> head>title>在ASP文件使用DLL/title>/head> body> % On Error Resume Next ‘當程序出現意外錯誤時能繼續執行
If Request.Form("T1")="" then Session("point") = 6 Else Session("point")=Request.Form("T1") End If '用Session("point")來存放色子的面數
Set dice1=Server.Createobject("MyDLL.clsDice") '使用set語句創建dice1對象，其中MyDLL是上面創建dll文件時的工程名稱（注意：不是文件的名稱），clsDice為類模塊的名稱。至此我們就可以用Maxpoint,Result和Throw屬性（方法）來對dice1對象進行操作。
