Video Player Events in VB.Net

Private Sub Flash_FlashCall(ByVal sender As System.Object, ByVal e As AxShockwaveFlashObjects._IShockwaveFlashEvents_FlashCallEvent) Handles Flash.FlashCall
        Dim xdoc As New Xml.XmlDocument
        xdoc.LoadXml(e.request)

        Dim Invoke As XmlNode = xdoc.FirstChild
        Dim CallBackName As String = GetAttribute(Invoke, "name")
       
        Select Case CallBackName
            Case "OnStream" ' this is my callback function name

                Dim Arguments As XmlNode = Invoke.FirstChild
                Dim MyEvent As XmlNode = Arguments.FirstChild
                Select Case MyEvent.InnerText
                    Case "init" '// thrown when the player has been initialized and the flash external API is ready to be accessed
                    Case "itemBegin" '// thrown when a video starts playing for the first time 
                    Case "itemEnd" '// thrown when a video has played for its total duration 
                    Case "done" '// thrown when all videos have played 
                    Case "streamPlay" '// thrown anytime a video begins to play 
                    Case "streamPause" '// thrown when vidPause() is requested and completed 
                    Case "streamStop" '// thrown when playback has stopped for whatever reason (not the same as itemEnd) 
                    Case "streamError" '// thrown when an error occurs with the stream 
                    Case "userClick" '// thrown when a user click on playback components w/i the post panel 
                End Select
            Case "eval"

            Case "y_up.player.setPercentLoaded"

            Case "reportEvent"

        End Select