Why does not vb.net code for text to speech run correctly even with no errors?

[colrajdhan]

[code]

Imports System.Speech.Synthesis
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("Male")
ComboBox1.Items.Add("Female")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SAPI
Dim synth As New SpeechSynthesizer
SAPI = CreateObject("sapi.spvoice")
SAPI.Speak(TextBox1.Text)
SAPI.Volume = VolumeTrackBar.Value
SAPI.Rate = SpeedTrackBar.Value
If ComboBox1.Text = "Male" Then
SAPI.SelectVoice = (VoiceGender.Female)
ElseIf ComboBox1.Text = "Female" Then
SAPI.SelectVoice = (VoiceGender.Male)
End If
End Sub

End Class