'create playlist Dim newPlayList As WMPLib.IWMPPlaylist = wmpControl.playlistCollection.newPlaylist("soundsToPlay") newPlayList.appendItem(wmpControl.newMedia("C:\Sample1.mp3")) newPlayList.appendItem(wmpControl.newMedia("C:\Sample2.mp3")) 'play the list wmpControl.Visible = False wmpControl.currentPlaylist = newPlayList wmpControl.stretchToFit = True wmpControl.Ctlcontrols.play()