播放器 WindowsMediaPlayer1 +Listbox 如何自动播放下一首

Question

Private Sub Form_Load()
On Error Resume Next
If App.PrevInstance Then End
 If Dir(App.Path & "\tem.txt") <> "" Then
   Open App.Path & "\tem.txt" For Input As #1
     Do Until EOF(1)
       Input #1, a$, B$
         Form2.L.AddItem Format(Form2.L.ListCount + 1, "000") & ". " & Trim(a$)   '歌名
         
         Form2.List1.AddItem Trim(B$)   ' 将文件路径读入 隐藏的播放列表
       
     Loop
      Close End If
End Sub以上是加载歌名和路径  用了两个listbox 怎么才能让播放完后自动播放下一首歌呢?

Answer 1

为什么 WindowsMediaPlayer1正在播放时   控件中 的下一首按扭不可用

Answer 2

Private Sub Timer1_Timer()
     
            If MP.playState = 1 Then         
            Song = Song + 1: Form2.L.ListIndex = Song
            url = Form2.List1.List(Form2.L.ListIndex) 
            WindowsMediaPlayer1.url = url: WindowsMediaPlayer1.Controls.play  
             end if 
End Sub