Video Player Methods in VB.NET

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Loads for player
        Flash.AllowScriptAccess = "always"
        Flash.SetVariable("registerWithJS", "1")
        Flash.Movie = "http://d.yimg.com/cosmos.bcst.yahoo.com/up/fop/embedflv/swf/fop.swf"
        Flash.Play()
End Sub

Private Sub Play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
        VideoID = "v" & ListBox1.SelectedItem  'item as 123456
        Flash.CallFunction("<invoke name=""playID"" returntype=""xml""><arguments><string>" & VideoID & "</string></arguments></invoke>")
End Sub

Private Sub Stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        Flash.CallFunction("<invoke name=""vidStop"" returntype=""xml""></invoke>")
End Sub

Private Sub Pause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPause.Click
        Flash.CallFunction("<invoke name=""vidPause"" returntype=""xml""></invoke>")
End Sub