'speech
Private V As SpeechLib.SpVoice
Private T As SpeechLib.ISpeechObjectToken
 
Private Sub Command_Click()
 
    Dim ObjTextToSpeech As Object
    Dim sItem As String
    Dim sa As String
    Dim lb As Long
 
    'text
    sa = "Man dient seinem Planet, bedingt seinem Land, nicht einer Fahne und" & _
      "nie einem Glauben."
    lb = -4 'vorlesegeschwindigkeit von -10 bis +10, 0=standard
 
    If lstStimme.ListIndex > -1 Then
        Set V.Voice = V.GetVoices().Item(lstStimme.ListIndex)
    End If
 
    V.Rate = lb   'geschwindigkeit
    V.Speak sa, SVSFlagsAsync 'sprechen
 
End Sub
 
Private Sub Form_Load()
 
    Dim strVoice As String
 
    Me.Show
    'vorhandene stimmen auslesen und in liste einfügen
    Set V = New SpVoice
    For Each T In V.GetVoices
        strVoice = T.GetDescription     'The token's name
        lstStimme.AddItem strVoice          'Add to listbox
    Next
 
End Sub