ASP.NET is a unified Web platform that provides all the services necessary for you to build enterprise-class applications. ASP.NET is built on the .NET Framework, so all .NET Framework features are available to ASP.NET applications. Your applications can be written in any language that is compatible with the common language runtime (CLR), including Visual Basic and C#. The topics in this section provide details about how to use the features offered by ASP.NET.
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(
TSS.SpeakStream(FStream, SpeechVoiceSpeakFlags.SVSFlagsAsync)
TSS.WaitUntilDone(99999)
FStream.Close()
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)
PrivateSub EventInterests()
With TSS
' Add the SVEPhoneme and SVEViseme constants to Event Interests
' (setting bit with logical 'Or' doesn't require testing):
.EventInterests = .EventInterests
If (.EventInterests And SpeechVoiceEvents.SVEViseme) = SpeechVoiceEvents.SVEViseme Then
EndIf
EndWith