随便什么 只要vb制作的播放器就行

用工程——部件下的 windowsmediaplayer控件
然后用 工程——部件下的 commondialog对话框控件
private sub command1_click()
commondialog1.showopen (显示对话框)
windowsmediaplayer1.url=commondialog1.filename(播放器的路径为对话框现实的文件夹的路径)
end sub
注意 要把 commondialog 和windowsmeidaplayer控件放置到窗体上