newMediaはIWMPMedia型のオブジェクトを返すだけなので、これを使う場合、その返値のIWMPMediaオブジェクトをWindowsMediaPlayerオブジェクトのcurrentMediaに設定してやる必要があります。 Dim media As IWMPMedia = wmp.newMedia(...) wmp.currentMedia = media wmp.Ctlcontrols.play() ' currentMediaに設定しただけで再生開始されるか、play()が必要かは覚えてないですが