“工具箱”中单击右键，选择“选择项”菜单，打开“选择工具箱项”窗口，选择“COM组件”标签，在列表中找到并勾选“Windows Media Player”组件，单击“确定”按钮。将该组件添加到指定的工具箱选项卡中，然后在工具箱里面找 Windows Media Player 控件，拉到form里面，拉出来的控件就是AxWindowsMediaPlayer
创新互联专业为企业提供栾城网站建设、栾城做网站、栾城网站设计、栾城网站制作等企业网站建设、网页设计与制作、栾城企业网站模板建站服务，10年栾城做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
首先要确定播放的视频格式是什么格式，如果是windows media player支持的格式，直接使用该控件就行了，如果是单个视频的话，比如命名为myPlayer,则：
myPlayer.url="视频文件完整路径"
显示桌面的本质是个系统 Shell（IShellDispatch4.ToggleDesktop()），所以只需要调用这个 Shell 就好了，用不着模拟按键。
项目引用 C:\Windows\System32\shell32.dll，参考代码：
Dim objShel As Shell32.ShellClass = New Shell32.ShellClass()
CType(objShel, Shell32.IShellDispatch4).ToggleDesktop()