My code Below what is wrong

PublicSub MouthArray()

M(0) = "M1.gif"

M(1) = "M2.gif"

M(2) = "M2.gif"

M(3) = "M2.gif"

M(4) = "M3.gif"

M(5) = "M3.gif"

M(6) = "M4.gif"

M(7) = "M4.gif"

M(8) = "M5.gif"

M(9) = "M2.gif"

M(10) ="M5.gif"

M(11) ="M2.gif"

M(12) ="M4.gif"

M(13) ="M4.gif"

M(14) ="M6.gif"

M(15) ="M4.gif"

M(16) ="M4.gif"

M(17) ="M6.gif"

M(18) ="M7.gif"

M(19) ="M4.gif"

M(20) ="M4.gif"

M(21) ="M1.gif"

EndSub

ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click

FStream.Open(Server.MapPath(

"2.txt"), SpeechStreamFileMode.SSFMOpenForRead, True)

TSS.SpeakStream(FStream, SpeechVoiceSpeakFlags.SVSFlagsAsync)

TSS.WaitUntilDone(99999)

FStream.Close()

EndSub

ProtectedSub TSS_Viseme(ByVal StreamNumber AsInteger, ByVal StreamPosition AsObject, ByVal Duration AsInteger, ByVal NextVisemeId As SpeechLib.SpeechVisemeType, ByVal Feature As SpeechLib.SpeechVisemeFeature, ByVal CurrentVisemeId As SpeechLib.SpeechVisemeType) Handles TSS.Viseme

MM.ImageUrl = M(CurrentVisemeId)

EndSub

PrivateSub EventInterests()

With TSS

' Add the SVEPhoneme and SVEViseme constants to Event Interests

' (setting bit with logical 'Or' doesn't require testing):

.EventInterests = .EventInterests

Or SpeechVoiceEvents.SVEPhoneme

.EventInterests = .EventInterests

Or SpeechVoiceEvents.SVEViseme

If (.EventInterests And SpeechVoiceEvents.SVEViseme) = SpeechVoiceEvents.SVEViseme Then

.EventInterests = .EventInterests

Xor SpeechVoiceEvents.SVEViseme

EndIf

EndWith

EndSub