1、 建 立 一 個 ActiveX DLL工 程 ， 這 時 工 程 中 將 包 括 一 個 類 模 塊 Class1。 
    2、 在 ActiveX DLL工 程 中 添 加 一 個 Form。 
    3、 在 類 模 塊 添 加 如 下 函 數(shù) ： 
    Public Function ShowMyForm(s As String) 
     Form1.Caption = s 
     Form1.Show vbModal 
    End Function 
    4、 將 工 程 編 譯 為 DLL。 
    調(diào) 用 時 ， 
    1、 建 立 一 個 標 準 EXE， 在 菜 單 “ 工 程 |引 用 ” 中 選 擇 前 面 編 譯 的 DLL。 
    2、 使 用 如 下 代 碼 調(diào) 用 ： 
    Private Sub Form_Click() 
     Dim cls As New Class1 
     
     cls.ShowMyForm("Hello") 
    End Sub 
<END>