关于tts的。为什么在朗读过程中，程序独占了资源，不能中止解决方法

关于tts的。为什么在朗读过程中，程序独占了资源，不能中止
如题。xSound.Speak strReadText & "" 'xSound是个TTS对象
为什么朗读过程中，我无法中止呢。即程序界面无响应。必须等它全部读完后我才可操作。有什么办法让它在后台朗读，不响应我做其它操作啊。


------解决方案--------------------
每次少一些文字。
中间暂停下。
------解决方案--------------------
Voice.Speak vbNullString, SVSFPurgeBeforeSpeak
Voice.Resume