[COLOR=red]Dim speech As SpVoice

Private Sub Command1_Click()
speech.Speak Text1
End Sub

Private Sub Form_Load()
Set speech = New SpVoice
End Sub[/COLOR]



[COLOR=red]Bunu yapmak için,
[COLOR=black]Bir adet textbox ve command click koyun.[/COLOR]

[SIZE=3]Dikkat![/SIZE]
[SIZE=3][COLOR=#000000][FONT=Times New Roman]Referanstan speech object libraryi seçmeliyiz olması için.[/FONT][/COLOR][/SIZE][/COLOR]