百度简单音乐播放器1

Option Explicit
Private Sub Form_Load()
WebBrowser1.Move WebBrowser1.Left - 180, WebBrowser1.Top - 180
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.write Text1.Text
End Sub

<p id="post_content_12056019685"><embed height="95" width="400" allowfullscreen="true" wmode="transparent" play="true" loop="false" menu="false" allowscriptaccess="never" scale="noborder" type="application/x-shockwave-flash" src="http://box.baidu.com/widget/flash/bdspacesong.swf?from=tiebasongwidget&url=&name=%E6%9C%89%E4%B8%80%E5%A4%A9&artist=%E7%9B%9B%E6%99%93%E7%8E%AB&extra=&autoPlay=false&loop=true" mce_src="http://box.baidu.com/widget/flash/bdspacesong.swf?from=tiebasongwidget&url=&name=%E6%9C%89%E4%B8%80%E5%A4%A9&artist=%E7%9B%9B%E6%99%93%E7%8E%AB&extra=&autoPlay=false&loop=true" pluginspage="http://www.macromedia.com/go/getflashplayer" class="BDE_Music"></p>