（ 主 持 人 注 ： 在 運 行 下 面 的 代 碼 前 需 要 先 選 擇 菜 單 “ 工 程 |引 用 ” ， 在 對 話 框 中 選 擇 Voice Text Object Library。 ） 
    Dim vText As New VTxtAuto.VTxtAuto 
     
    Private Sub Command1_Click() 
     Dim astr As String 
     
     Command1.Enabled = False 
     vText.Register vbNullString, "Rick" 
     astr = "This is a sample of Microsoft Speech Engine?" 
     vText.Speak astr, vtxtsp_NORMAL Or vtxtst_QUESTION 
    End Sub 
     
    Private Sub Form_Unload(Cancel As Integer) 
     Set vText = Nothing 
    End Sub 
    (主 持 人 注 ： 關 于 這 個 對 象 的 更 詳 細 介 紹 可 以 參 考 MSDN Libaray中 的 文 章 《 A High-Level Look at Text-to-Speech via the Microsoft Voice Text Object》 ) 
<END>