简单播放器：
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
text1.text内容如下：
<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>