Question How do I get jwplayer to play multiple flv files consecutively?

[SchoolWork]

How do I get jwplayer to play multiple flv files consecutively? using vb.net. Just to further clarify, what I'm wanting to know is when jwplayer has completed playing a video so I can begin it playing the next.


So far I can play a single clip but I can't play one after the other


code so far:

Imports System.IO
Imports System.Net.Sockets
Public Class Form1
    Friend WithEvents AxShockwaveFlash1 As New AxShockwaveFlashObjects.AxShockwaveFlash
    Dim PlayingFlash As Boolean = False
    Dim PlaylistHidden As Boolean = False
    Dim SettingUseJwPlayer3_16 As Boolean = True
    Sub OpenFLV(ByVal strFile As String, ByVal AxShockWaveFlash As AxShockwaveFlashObjects.AxShockwaveFlash)
        Dim strPath As String
        Dim PlayerPath As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\player.swf"
        If File.Exists(PlayerPath) Then File.Delete(PlayerPath)
        File.WriteAllBytes(PlayerPath, My.Resources.player)
        strPath = "file:///" & PlayerPath & "?file="
        strPath = strPath & strFile
        strPath = Replace(strPath, "\", "/")
        With AxShockWaveFlash
            .Stop()
            .Visible = True
            .Menu = False
            .FlashVars = "&showstop=true&showdownload=false&height=" & AxShockWaveFlash.Height.ToString & "&width=" & AxShockWaveFlash.Width.ToString & "&showplay=true&autoscroll=false&autostart=true&overstretch=true&showicons=1&searchbar=false&controlbar=0"
            .LoadMovie(0, strPath)
            .Play()
        End With
        PlayingFlash = True
    End Sub
    Sub PlayJwPlayer3_16(ByVal Vid As String)
        If Not AxShockwaveFlash1.IsDisposed Then AxShockwaveFlash1.Dispose()
        AxShockwaveFlash1 = New AxShockwaveFlashObjects.AxShockwaveFlash
        AxShockwaveFlash1.BeginInit()
        AxShockwaveFlash1.Name = "AxShockwaveFlash1"
        AxShockwaveFlash1.EndInit()
        Me.Controls.Add(AxShockwaveFlash1)
        AxShockwaveFlash1.Visible = True
        AxShockwaveFlash1.Location = Panel1.Location
        AxShockwaveFlash1.BringToFront()
        PlayingFlash = True
        Panel1.Visible = False
        OpenFLV(Vid, AxShockwaveFlash1)
    End Sub


    Private Sub Play_Click(sender As Object, e As EventArgs) Handles Play.Click
        PlayJwPlayer3_16("https://dp-geography.wikispaces.com/file/view/World+Cup+in+South+Africa+-+%28IB+Geography+Study+Sports%2C+Leisure+%26amp%3B+Tourism+%29.flv")
    End Sub
End Class