Text-To-Speech no Visual Basic 2008 e 2010

Imports ACTIVEVOICEPROJECTLib 'Importa o módulo
Public Class Form1
    Dim voz As New DirectSS 'define voz como o módulo
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim i As Integer

        Dim tipoVoz As String


        For i = 1 To voz.CountEngines

            tipoVoz = voz.ModeName(i)

            ComboBox1.Items.Add(tipoVoz) ' adiciona as vozes disponiveis no sistema em um combobox


        Next

        ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        voz.CurrentMode = ComboBox1.SelectedIndex + 1

'quando você muda a voz, ele define
        If (voz.Gender(voz.CurrentMode) = 1) Then

            voz.LipType = 0

        Else

            voz.LipType = 1

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "" Then
            MsgBox("Digite um texto") 'se nao tiver nada escrito, ele avisa
        Else
            voz.AudioPause() 'pausa o texto (se estiver falando)
            voz.AudioReset() 'reinicia
            voz.Speak(TextBox1.Text) 'começa a falar
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "Pausar" Then 'se o texto do botão for pausar, significa que ele está falando, então ele muda para continuar e pausa a fala
            voz.AudioPause()
            Button2.Text = "Continuar"
        Else
            Button2.Text = "Pausar"
            voz.AudioResume()
        End If


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        voz.AudioPause() 'pausa para nao continuar falando
        voz.AudioReset() 'volta ao começo
    End Sub
End Class