Visual Basic

Dim spkSpeak as new YourSpeakControlClass

Sub Main
  Open "c:\webster\1\say.txt" For Input As 1
  txtText.Text = Input(LOF(1), 1)
  Close 1
  spkSpeak.AudioReset
  spkSpeak.Speak txtText.Text

  While IsTalking
    DoEvents
  End While
End Sub

MohammadAmiry wrote:

While IsTalking DoEvents End While

Dave Kreskowiak wrote:

MohammadAmiry wrote:
While IsTalking DoEvents End While


So, where is this IsTalking getting it's value from? Where is it defined?

THe code you've posted won't even compile unless you specify that stuff...

Private Sub Timer2_Timer()<br />
  Dim DelayTime As Long<br />
  Dim EndTime As Long<br />
<br />
   DelayTime = 5 'Set Delay in Seconds.<br />
   EndTime = Format(Time, "s") + DelayTime<br />
   If EndTime > 59 Then<br />
      'Make sure Seconds is Not Greater than 59.<br />
      EndTime = EndTime - 59<br />
   End If<br />
   Do Until Format(Time, "s") = EndTime<br />
      'Yields execution so that the operating system can process other events.<br />
      DoEvents<br />
   Loop<br />
End Sub<br />
<br />
Function stalk()<br />
 Open "c:\webster\1\say.txt" For Input As 1<br />
  txtText.Text = Input(LOF(1), 1)<br />
  Close 1<br />
  DirectSS1.AudioReset<br />
  DirectSS1.Speak txtText.Text<br />
  Timer2_Timer<br />
End Function<br />
<br />
Private Sub Form_Load()<br />
  Call stalk<br />
  Unload Me<br />
End Sub