'When the media is finished see if there is more to play
Sub MediaPlayer1_Complete
If Main.MediaQueue(0).vox <> "" Then
CallSub(Main, "ViewHighLight") 'highlight the next vox
Main.MediaPlayer1.Load(Main.MediaQueue(0).VoxFldr, Main.MediaQueue(0).Vox)
Main.MediaPlayer1.Play
CallSub(Main, "ViewHighLight") 'remove any highlight that was there
RemoveFromMediaQueue(0) 'remove it from the queue
End If
End Sub