Sub Pronuncia(Testo As String)
mTTS_Pronto = False
InitTTS
Do Until mTTS_Pronto
DoEvents
Loop
mTTSFinished = False
gTTS.Speak(Testo, True)
End Sub
Sub InitTTS
If gTTS.IsInitialized = False Then
gTTS.Initialize("gTTS")
Else
mTTS_Pronto = True
End If
End Sub