現(xiàn)在就來測試前面創(chuàng)建的類。
按F5運行程序；在彈出的屬性對話框中，選中"Wait for Components to Start"(啟動工程時等待創(chuàng)建部件)，然后按[OK]按鈕；
這時，類就會被激活，其他程序就可使用它的功能。
再次運行Visual Basic另一個實例；
創(chuàng)建一個新的"Standard EXE"工程；
選擇"'Project"->"References"菜單；
瀏覽對話框中可引用的列表項，可以發(fā)現(xiàn)一些額外的組件。
選中"Northwind"列表項；
Northwind就是前面創(chuàng)建的ActiveX工程。
單擊[OK]按鈕；
現(xiàn)在添加一些代碼來使用上述工程：
在Form1表單中添加一個命令按鈕；為命令按鈕添加下列代碼：
Dim Test As Customers
Set Test = New Customers
MsgBox Test.CustomerID
Set Test = Nothing
該代碼首先創(chuàng)建一個新的Customers對象，然后顯示CustomerID信息，最后將Test對象置為Nothing，并關閉它。
按F5鍵運行測試程序；
需要說明的是，當運行時出現(xiàn)"invalid reference"錯誤提示時，肯定哪些地方有問題。這時可按下面步驟重新來一次：
(1) 在測試工程中去掉Northwind引用；
(2) 重新啟動Northwind工程；
(3) 在測試工程中添加Northwind引用，再運行！
單擊表單中的命令按鈕；
這時運行時可能需要幾秒鐘，畢竟還要做一些如數(shù)據庫連接等工作。但是，除了一開始的停留外，后面的調用就快得多了。程序將顯示包含"ALFKI"的消息對話框。
關閉測試程序。
現(xiàn)在，我們來看看程序背后究竟發(fā)生什么。
將插入符移動到MsgBox Test.CustomerID這條語句上；按F9；
該語句顯示為紅色，用來標記一個斷點。當代碼運行時，它會停留在這里。按F8將單步運行此語句，并移動到下一句代碼上。
按F5再次運行測試程序；
單擊命令按鈕；
流程將停留在MsgBox這條命令上。
按F8，慢慢單步執(zhí)行各條語句；
將會看到系統(tǒng)在兩個Visual Basic中來回切換，顯示出不同屬性的處理過程。
結束后，關閉測試程序。
下面再對前面的工程進行測試。這一次，我們不僅獲取CustomerID的值，而且還設置這個值。
將命令按鈕的代碼改為：
Dim Test As Customers
Set Test = New Customers
Test.CustomerID = "KARLY"
Test.Update
MsgBox Test.CustomerID
Set Test = Nothing
按F5運行程序；在彈出的屬性對話框中，選中"Wait for Components to Start"(啟動工程時等待創(chuàng)建部件)，然后按[OK]按鈕；
這時，類就會被激活，其他程序就可使用它的功能。
再次運行Visual Basic另一個實例；
創(chuàng)建一個新的"Standard EXE"工程；
選擇"'Project"->"References"菜單；
瀏覽對話框中可引用的列表項，可以發(fā)現(xiàn)一些額外的組件。
選中"Northwind"列表項；
Northwind就是前面創(chuàng)建的ActiveX工程。
單擊[OK]按鈕；
現(xiàn)在添加一些代碼來使用上述工程：
在Form1表單中添加一個命令按鈕；為命令按鈕添加下列代碼：
Dim Test As Customers
Set Test = New Customers
MsgBox Test.CustomerID
Set Test = Nothing
該代碼首先創(chuàng)建一個新的Customers對象，然后顯示CustomerID信息，最后將Test對象置為Nothing，并關閉它。
按F5鍵運行測試程序；
需要說明的是，當運行時出現(xiàn)"invalid reference"錯誤提示時，肯定哪些地方有問題。這時可按下面步驟重新來一次：
(1) 在測試工程中去掉Northwind引用；
(2) 重新啟動Northwind工程；
(3) 在測試工程中添加Northwind引用，再運行！
單擊表單中的命令按鈕；
這時運行時可能需要幾秒鐘，畢竟還要做一些如數(shù)據庫連接等工作。但是，除了一開始的停留外，后面的調用就快得多了。程序將顯示包含"ALFKI"的消息對話框。
關閉測試程序。
現(xiàn)在，我們來看看程序背后究竟發(fā)生什么。
將插入符移動到MsgBox Test.CustomerID這條語句上；按F9；
該語句顯示為紅色，用來標記一個斷點。當代碼運行時，它會停留在這里。按F8將單步運行此語句，并移動到下一句代碼上。
按F5再次運行測試程序；
單擊命令按鈕；
流程將停留在MsgBox這條命令上。
按F8，慢慢單步執(zhí)行各條語句；
將會看到系統(tǒng)在兩個Visual Basic中來回切換，顯示出不同屬性的處理過程。
結束后，關閉測試程序。
下面再對前面的工程進行測試。這一次，我們不僅獲取CustomerID的值，而且還設置這個值。
將命令按鈕的代碼改為：
Dim Test As Customers
Set Test = New Customers
Test.CustomerID = "KARLY"
Test.Update
MsgBox Test.CustomerID
Set Test = Nothing