A simple script for TextToSpeech. (Internet speechsynthesizer)

SpeechSynthesizer (Internet).vb

Public Module SpeechSynth
    Enum Language As Integer
        English = 0
        German = 1
        French = 2
        Spanish = 3
        Japanese = 4
        Chinese = 5
    End Enum
    Public Sub Say(ByVal Text As String, Optional ByVal Language As Integer = 0)
        Dim Langtext As String = "en"
        If Language = 1 Then
            Langtext = "de"
        End If
        If Language = 2 Then
            Langtext = "fr"
        End If
        If Language = 3 Then
            Langtext = "sp"
        End If
        If Chinese = 5 Then
            Langtext = "ch"
        End If
        My.Computer.Audio.Play("http://dict.cc/speak.audio.php?type=wav&lang=" & Langtext & "&text=" & Text, AudioPlayMode.WaitForComplete)
    End Sub
End Module