実行するには (ID:116784)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Sub CommandActivate_Click() Dim ReturnCode : : 省略 ： End Sub Private Sub CommandDeactivate_Click() ' 音声認識を終了します。 End Select Dim Result As Long Result = TOSTTSX1.Speak(txtEdit.Text) If Result <> 0 Then MsgBox ("読み上げエラーが発生しました。(エラーコード:" + CStr(Result) + ")") End If End Sub 今、このようなプログラムを作成中なのですが、CommandDeactivateクリックのとこを数秒おいてから実行したいのですが・・・どのようにしたらいいでしょう？？