Воспроизвести видео-файл во весь экран - VB

Формулировка задачи:

Как воспроизвести видео в Picturebox (ну можно и не в него) с помощью компонента Windows Media Player? С этим большая проблема, ведь мало его туда выводить - нужно как-то во весь экран разворачивать его, как в видео-плеерах.

If Right (Player.URL, 3) = avi Or Right (Player.URL, 3) = AVI Or Right (Player.URL, 3) = wmv...

Решение задачи: «Воспроизвести видео-файл во весь экран»

textual
                            Листинг программы 
                        

                            WindowsMediaPlayer1.URL = "c:\ваш_файл.wmv"
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.uiMode = "none"
WindowsMediaPlayer1.windowlessVideo = True
Do
DoEvents
Loop Until WindowsMediaPlayer1.playState = wmppsPlaying
WindowsMediaPlayer1.fullScreen = True
                        