[5分]语音朗读器中的暂停及停止按钮代码是怎么写的?

运用:fan0217的《分享]语音朗读通用模块》中的方法能够实现朗读功能，但没有暂停、停止按钮，这使得用起来不方便，更没有江羽语音朗读精灵的朗读与文本同步显示的功能。敬请各位老师帮我一把，本人叩谢了！

此为暂停单击代码：

Private Sub Command2_Click()

    Me.Text145.SetFocus
    If Command2.Caption = "暂停" Then
        Command2.Caption = "恢复"
        oVoice.Pause
    Else
        Command2.Caption = "暂停"
        oVoice.Resume
    End If

End Sub

此为“停止”代码：

Private Sub Command3_Click()
    If Command2.Caption = "恢复" Then oVoice.Resume: Command2.Caption = "暂停"
    oVoice.Speak vbNullString, SVSFPurgeBeforeSpeak
'    Call MySpeak
End Sub