Dim picbox As PictureBox
        Dim Music As New SoundFile
        Dim video As New Videoplayer
 
        picbox = video.PictureBox1
        Music.OpenFile("D:\movie.wmv", picbox)
        video.Show()
 
        Music.Play()
        Do While Music.Status = SoundFile.StatusValues.Playing
            System.Threading.Thread.Sleep(100)
        Loop
        video.Close()