有关Windows Media Player 控件自动播放有关问题，

有关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
[解决办法]
华夏~~~我来接分也~~~~ 
[解决办法]
最后加上WMP1.Play()看看。