Controlling the Windows Media Player in a Powerpoint Slide

[kdubious]

Anyone know how to do this in VB.NET, or anything for that matter. I have
been trying this, but it fails:

Dim pres As Presentation
pres = oPPT.Presentations(1)

Dim slide As Slide
slide = pres.Slides.Add(1, PpSlideLayout.ppLayoutBlank)
slide.Select()
Dim shape As Microsoft.Office.Interop.PowerPoint.Shape
shape = slide.Shapes.AddOLEObject(Left:=120, Top:=110, Width:=480,
Height:=320, ClassName:="WMPlayer.OCX.7", Link:=MsoTriState.msoFalse)

shape.Select()

pres.SlideShowSettings.Run()

shape.OLEFormat.Object.windowlessVideo = True
shape.OLEFormat.Object.uiMode = "none"
shape.OLEFormat.Object.enableContextMenu = False
shape.OLEFormat.Object.openplayer("mms://live/msa")


The last line, instead of playing the content in the embedded player, seems
to spawn a new player.

Please help.

Kevin