Private Sub Command1_Click ()
DoEvents
PCspeak1. Speak Text1. Text, m_speakFlags
End Sub

Call the micrsoft researched object library, run to PCspeak1. Speak Text1. Text, m_speakFlags error "ActiveX components can't create object", I don't know what reason be?