VB 循环播放视频文件

       private sub form_load()
               if mydialog1.filename=" " then
                       mystart:   mydialog1.showopen           '弹出对话框，选择要加载的视频
                       if mydialog.FileName = "" Then
                               GoTo mystart
                        end If
                        myplayer.URL = mydialog.filename ' 
 end If
                form1.visible = false
                timer1.Interval = 500
                timer1.enabled = true
        end sub
       private sub timer_timer()
                If myplayer.playstate = 1 then                    '每500ms判断一次音频文件是否播放完毕，
                         myplayer.controls.play
                 end If
        end sub