Step 5: Resize the Speech Recognition Control on form and add the following UI on form.(1 combo box, 1 textbox control)

Step 6: Select Combo Box, select Row Source Type property, set to Value List.
Step 7: Select Text Box, select Sroll Bars property, set to Vertical and set Name property to txtText.
Step 8: In Form load event , add the following code
Private Sub Form_Load()
Dim obj As SpeechRecognition
Set obj = Me.SpeechRecognition0.Object
obj.InitControl
iCount = obj.GetVoiceCount
For i = 0 To iCount-1
Me.Combo1.AddItem obj.GetVoiceName(i)
Next
End Sub
Step 9: In Speak button click event , add the following code
Private Sub Command5_Click()
Dim obj As SpeechRecognition
Set obj = Me.SpeechRecognition0.Object
obj.SetSelectedVoice Me.Combo1.ListIndex
obj.Speak (txtText.Value)
End Sub
Step 10: In SpeechRecognition0 , add Speak Complete event, display Message Box when speak completed.
Private Sub SpeechRecognition0_SpeakComplete()
MsgBox "Speak Completed"