Imports System.Speech Public Class Form1 Dim WithEvents Voix As New Speech.Synthesis.SpeechSynthesizer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim texte As String = "mon chat est noir et blanc" Voix.SpeakAsync(texte) End Sub Private Sub Voix_StateChanged(ByVal sender As Object, ByVal e As System.Speech.Synthesis.StateChangedEventArgs) Handles Voix.StateChanged If e.State = Synthesis.SynthesizerState.Ready Then MessageBox.Show("fin de lecture") End If End Sub End Class