Text to Speech with MS SR SDK

I have this code:

Public SpeechPaused As Boolean

Private Sub Command1_Click()

'Send contents of textbox to speech control
DirectSpeech.Speak SpeakBox.Text

End Sub

Private Sub Command2_Click()

'Set default values
VSpeed.Value = 200
List1.ListIndex = 0
SpeakBox.Text = "Hi There"

End Sub

Private Sub Command3_Click()

'Exit program
Unload Main
End

End Sub

Private Sub Command4_Click()

If SpeechPaused = True Then
SpeechPaused = False
DirectSpeech.AudioResume
Command4.Caption = "&Pause"
Else
SpeechPaused = True
DirectSpeech.AudioPause
Command4.Caption = "&Paused"
End If

End Sub

Private Sub Form_Load()

Dim NumVoices As Integer
Dim Count As Integer

'Error handling
On Error GoTo Errorhandler

'Check to see if speech engine has initialised
If DirectSpeech.Initialized <> 1 Then
MsgBox "Speech engine failed to load", vbExclamation, "Error"
Unload Main
End
End If

'Get number of voices installed
NumVoices = DirectSpeech.CountEngines

'Fill listbox with voice engines
For Count = 1 To NumVoices
List1.AddItem DirectSpeech.ModeName(Count), Count - 1
List1.ListIndex = 0
Next

'Set default voice engine
DirectSpeech.Select (List1.ListIndex + 1)

'Set min and max voice speed values
VSpeed.Min = 100
VSpeed.Max = 300
VSpeed.Value = 200

'Set voice speed
DirectSpeech.Speed = VSpeed.Value
SpeedLbl.Caption = VSpeed.Value

'Get engine identification
EngineID.Caption = DirectSpeech.MfgName(List1.ListIndex + 1)

Exit Sub

Errorhandler:
MsgBox "An unexpected error has occured.", vbExclamation, "Error"
Unload Main
End

End Sub

Private Sub List1_Click()

'Set voice engine
DirectSpeech.Select (List1.ListIndex + 1)

'Set engine identification
EngineID.Caption = DirectSpeech.MfgName(List1.ListIndex + 1)

End Sub

Private Sub VSpeed_Change()

'Change voice speed
DirectSpeech.Speed = VSpeed.Value
SpeedLbl.Caption = VSpeed.Value

End Sub


This Code was Provided by www.planet-source-code.com and i did not write it. The main reason for this is i do not understand enough about the SRR SDK yet to write it my self (isnt that why u download source code!:) ) Well any way, when i run the app i get this error message:
"ActiveX control can't pass an object" or something like that...
if you could help me by telling me how to fix this or...

Could somone just tell me how to use The Text to Speech thing... how does that sound:) I know it works cause i tested it under the thing in my control pannel.

any help would be appreciated!
-Thanx, Virtual24
:confused: :confused: