Const FILE_TO_OPEN = "C:\windows\explorer.avi"
Dim strCmdStr As String
Dim lngReturnVal As Long
strCmdStr = "play " & FILE_TO_OPEN & " fullscreen "
lngReturnVal = mciSendString(strCmdStr, 0&, 0, 0&)