Eigenschappen , " klik " Referenties , " en selecteer" toevoegen . " Klik op het tabblad "COM" en klik op " Microsoft Speech Object Library " . Klik op "OK . " 
  Dubbelklik op " Button1 " 4 op de Form code module te openen . Typ het volgende in de eerste rij van de code -module om de naamruimte importeren : 
 Imports 
 SpeechLib 
 
 Kopieer 5 en plak de onderstaande code om twee variabelen te maken , een om de tekst te houden doos string en de andere aan de SpeechLib object houden : 
 Dim outputVoice als Nieuwe SpeechLib.SpVoice 
 
 Dim textString als Koord 
 
 Copy 6 
 en plak de volgende code om de tekst te krijgen in in het tekstvak ingevuld : 
 textString = Me.TextBox1.Text.Trim.ToString 
 
 Copy 
 7 en plak de volgende om de tekst opgeslagen in het spreken de " textString " variable : 
 outputVoice.Speak 
 ( textString ) 
 
 Druk op "F5 " 8 om uw programma uit te voeren en typ een zin in het tekstvak . Druk op " Button1 " te horen van de computer spreken de zin aan u .