コマンドを使わず実行するには (ID:116770)

名前

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

本文 Private Sub CommandActivate_Click() Dim ReturnCode ・ ・ ・ End Sub Private Sub CommandDeactivate_Click() ・ ・ ・ Dim Result As Long Result = TOSTTSX1.Speak(txtEdit.Text) If Result <> 0 Then MsgBox ("読み上げエラーが発生しました。(エラーコード:" + CStr(Result) + ")") End If End Sub というのを作成しているのですが２回目のコマンドを使わずに実行するのはどうしたらいいでしょうか？？