刚学VB，在制作播放器时，想自动播放列表的媒休文件，我用的以下代码，单步调试正常，可是正常运行时不能播放，列表指针也指到了尾部，不知道是何原，请高手指点呀？

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then
If List1.ListIndex < List1.ListCount - 1 Then
List1.ListIndex = List1.ListIndex + 1
WindowsMediaPlayer1.URL = List1.Text
WindowsMediaPlayer1.Controls.play
End If
End If
End Sub