急！！在线等！VB如何实现运行后就打开它所在文件夹内的应用程序？

如题，我小做个小程序，应该很简单，但我不会VB  抱歉~~

  比如视频文件，你电脑上如果安装了很多个视频播放器，比如快播，结果打开什么视频都只优先用快播，暴风影音什么的就不优先打开视频文件了，改了打开方式还是变回来，复制视频到朋友电脑上也是一样...   比如视频文件，你电