Проблема со Speech API

[vIRisium]

Доброе время суток. Вот код

Код: Выделить всё


  Dim tts As New Speech.Synthesis.SpeechSynthesizer
  tts.Speak("Test")



А вот проблема: Вместо звука из колонок тишина, причем слышно как он "якобы" начинает воспроизводить, но слышу лишь тишину. Кто сталкивался кто знает что это такое? ОС Vista.

[Arik]

Попробуй так:

Код: Выделить всё

Dim speaker As New SpeechSynthesizer()
        speaker.Rate = 1
        speaker.Volume = 100
        speaker.Speak("Hello genius")