Dim vw As QuartzTypeLib.IVideoWindow を、 Public vw As QuartzTypeLib.IVideoWindow にして、 Form1の下へ。
Button2のコードを、
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click vw.SetWindowPosition(0, 0, 0, 0) vw.Owner = Nothing PictureBox1.Image = Nothing PictureBox1.SizeMode = PictureBoxSizeMode.Zoom PictureBox1.ImageLocation = "(静止画ファイル名)" End Sub