Microsoft.DirectX.AudioVideoPlayback.Video - не меняется размер видео

Public Class Form2
 
    Dim plr As Microsoft.DirectX.AudioVideoPlayback.Video
    Dim file As String
    Dim size_yes As Boolean
    Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Form1.Show()
        Me.Close()
    End Sub
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.TopMost = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        If ProgressBar1.Value < 101 Then
            ProgressBar1.Value += 1
        End If
 
        If ProgressBar1.Value = 20 Then
            StartSkrimer()
        End If
 
        Label1.Text = "Загрузка фотографий..."
    End Sub
 
    Private Function StartSkrimer()
        file = "D:\Загрузки\Futuron\Кино\t.avi"
        plr = New Microsoft.DirectX.AudioVideoPlayback.Video(file)
        plr.Owner = PictureBox1
        plr.Size = PictureBox1.Size
        plr.Play()
        Timer1.Enabled = False
        Timer2.Enabled = False
        Return ""
    End Function
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        PictureBox1.Image = D3A1.My.Resources.Resources._4
        If size_yes = False Then
            PictureBox1.MaximumSize = PictureBox1.Size
            size_yes = True
        End If
    End Sub
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub
End Class