Guarda č semplicissimo una prova stupida č questa:
Inserisci il componente e poi sul click stesso fai cosi


Private Sub TextToSpeech1_ClickIn(ByVal x As Long, ByVal y As Long)
TextToSpeech1.Speak ("prova prova prova")
End Sub

O fai una text box dove scrivere e con un pulsante mandare la stringa al metodo speek ec......

l'unica cosa č che a me parla inglese, non sono riuscito a trovare il modo o la proprietā per farlo parlare in italiano, si puo fare perchč al tizio che lavora vicino a me va in italiano, solo che non ne sa il motivo quindi ................
se hai poi qualche idea fammi sapere
ciao