gui video

;FileSelectFile, file, 2, %A_ScriptDir%, Select a media file:
file = C:\Users\Thom\Desktop\TAB Nation\tab nation intro short.mp4
if Errorlevel
   ExitApp

Gui +LastFound
Gui Add, ActiveX, w600 h400 vWmp, WMPLayer.OCX
Wmp.Url := file
Gui Show, , Wmp in GUI
return

GuiClose:
ExitApp