Formumuza Project > References Menusunden "Microsoft Speech Object Library" adli Referenceyi ekliyoruz.

Daha Sonra Formumuza Bir TextBox birde Button Ekliyoruz Ve kod Bolumunu acıp Bunu Yazıyoruz ;

Dim speech As SpVoice
Private Sub Command1_Click()
speech.Speak Text1
End Sub
Private Sub Form_Load()
Set speech = New SpVoice
End Sub
__________________