//EditField1
Sub Action()
Declare Function SpeakString Lib "SpeechLib" (textToBeSpoken as PString) as Integer
Dim s As String
s = EditField1.Text
SpeakString a
End Sub

//PushButton1
Sub Action()
Declare Function StopSpeech Lib "SpeechLib" (char as Integer) as Integer
Dim char As Integer
StopSpeech
End Sub

EditField1とPushButton1を配置してEditField1に入力したテキストを喋らせる所までは
うまくいったのですが、それを途中で止めるコードがうまくいきません。なんででしょう？