WebBrowserコントロール内のボタンでWindowsMediaPlayerを制御するには？

BOOKS 2003-11-30 05:50:55 No: 80639

先日の質問(FormのWebBrowserの動画リンクを同Form上のWindowsMediaPlayerで再生するには？)でWebBrowserからのWMPの再生法がわかりました。
WebBrowserに配置した再生ボタンや停止ボタンでWMPコントロールを制御するにはどうすればよいのでしょうか？
サンプルプログラムで
Private Function hDoc_onclick() As Boolean
Dim hAnchor As HTMLAnchorElement
Set hAnchor = hDoc.activeElement
If UCase(Right(hAnchor.href, 4)) = ".AVI" Then
WMP.URL = "c:\winnt\clock.avi"
End If
End Function
の中にDim hButton As HTMLButton
のようなものを追加してWMP_start()のような事をすればよいのでしょうか？
HTMLButtonなどの説明が探しても見つからずわかりません。
何度も申し訳ありませんがどうかよろしくお願いいたします。

k.k 2003-12-01 02:53:56 No: 80640

MediaPlayer1.Controls.play
MediaPlayer1.Controls.pause
MediaPlayer1.Controls.stop
でできると思います。