VBCode for speech(Voice in windows)

First call out the reference from a dll for Speech then in the code section write following
with the command button as command1 and a textbox as text1



Dim a As SpVoice


Private Sub Command1_Click()

a.Speak Text1.Text

End Sub



Private Sub Form_Load()

Set a = New SpVoice

Agent1.Characters.Load "a", "merlin.acs"

Agent1.Characters("a").Show

Agent1.Characters("a").Play "announce"

' There is a message for you. There is a message for you.

End Sub