Imports System.Globalization
 
 
 
        'Wieviel Sprachen installiert?
        Dim u As Integer = Voice.CountEngines()
 
        Dim Name As String
        Dim Kultur As Integer
 
        'LCID für jede Engine holen
        For t As Integer = 0 To u - 1
            Debug.WriteLine(Voice.LanguageID(t))
        Next
 
        'Ausgabe des Landnames der LCID
        For t As Integer = 1 To u - 1
            Kultur = Voice.LanguageID(t)
            Dim l As New CultureInfo(Voice.LanguageID(t))
 
            'Namen zuweisen von der CulturInfo Klasse
            Name = l.DisplayName()
 
            'Geschlecht bestimmen
            Select Case Voice.Gender(t)
                Case 0
                    Name &= " - Sprachneutral"
                Case 1
                    Name &= " - Weiblich"
                Case 2
                    Name &= " - Männlich"
            End Select
 
            Listbox1.Items.Add(Name)
        Next
 
 
 
 Private Sub Listbox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal _
   e As System.EventArgs) Handles Listbox1.SelectedIndexChanged
        Voice.CurrentMode = Listbox1.SelectedIndex + 1
        Voice.Sayit = "Guten Morgen. Es ist Vollbracht"
    End Sub