关于调用WindowsMediaPlayer制作定时播放器的小问题

Question

下面是一小段代码，其中Timer1_Timer()是用来定时播放的，，shi和fen为两个变量，是指自己设置的时间的
其中Timer4_Timer()是用来定时检测播放器的状态的，当每放完一首后就自动播放下一首，，
List2是播放列表，
现在问题好像出现在Timer4中，假如在列表中添加3首歌曲，就会出现第三首歌曲会重复播放两边才停止播放动作，，
我的目的是想，当列表中的曲目全部放完后，就立刻结束，可是那个i的判断条件好像有问题，，    各位大哥帮忙看下该怎么解决呢？？？？？    谢谢啦Private Sub Timer1_Timer()
If shi = Hour(Time) And fen = Minute(Time) Then
WindowsMediaPlayer1.URL = List2.List(i)
WindowsMediaPlayer1.Controls.play
Timer4.Enabled = True
Timer1.Enabled = False
End If
End SubPrivate Sub Timer4_Timer()
Static i As Integer
If WindowsMediaPlayer1.playState = 1 Then
i = i + 1
 If i >= List2.ListCount Then
 WindowsMediaPlayer1.Close
 Timer4.Enabled = False
 End If
WindowsMediaPlayer1.URL = List2.List(i)
WindowsMediaPlayer1.Controls.play
End If
End Sub

Answer 1

Private Sub Timer4_Timer()
Static i As Integer
If WindowsMediaPlayer1.playState = 1 Then
i = i + 1
 If i >= List2.ListCount Then
 WindowsMediaPlayer1.Close
 Timer4.Enabled = False
 Exit Sub
 End If
WindowsMediaPlayer1.URL = List2.List(i)
WindowsMediaPlayer1.Controls.play
End If
End Sub