有关Windows Media Player 控件自动播放问题，急，在线等

加入这样的代码为何不能实现Windows Media Player自动播放？
Private Sub WMP1_PlayStateChange(ByVal NewState As Long)
 Static i As Integer
    
  If WMP1.playState = 8 Then
        If Tim = 1 Then
            If i < List2.ListCount Then
                i = i + 1
             'MsgBox WMP1.playState & "i= " & i & List2.List(i)
                WMP1.Controls.Next
                WMP1.URL = App.Path & "\music\" & List2.List(i)
            Else
                i = 0
                WMP1.URL = App.Path & "\music\" & List2.List(i)
            End If
       ElseIf Tim = 2 Then
            Randomize
             WMP1.URL = App.Path & "\music\" & List2.List(List2.ListCount * Rnd)
       Else
            WMP1.URL = App.Path & "\music\" & List2.List(List2.ListIndex)
       End If
 End If
End Sub