实际上就是先定义一个WMP的播放列表:

 Dim CurrentList As WMPLib.IWMPPlaylist = Me.AxWindowsMediaPlayer1.currentPlaylist
        Dim Media As WMPLib.IWMPMedia

        '这里可以使用数组循环,从而得到播放列表
        Media = Me.AxWindowsMediaPlayer1.newMedia("K:\娱乐休闲\mp3\寂寞的季节.mp3")
        CurrentList.appendItem(Media)
        Media = Me.AxWindowsMediaPlayer1.newMedia("K:\娱乐休闲\mp3\IBelieve.mp3")
        CurrentList.appendItem(Media) 

重复播放

 Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub