Как избежать ошибки файл занят другим процессом

.Dispose()

Dim myBitmapImage As New BitmapImage()
        myBitmapImage.BeginInit()
           My.Application.impath = openfile.FileName 'присвание переменной impath полного пути открываемого файла
        My.Application.imname = FileIO.FileSystem.GetName(My.Application.impath) ' получение имени файла
        IO.File.Copy(My.Application.impath,"C:\Program Files" & My.Application.imname)' создание копии
        myBitmapImage.UriSource = New Uri("C:\Program Files" & My.Application.imname) 'открытие копии
        myBitmapImage.EndInit()

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles OKBut.Click
My.Application.imname = FileName.Text ' FileName-текстбокс. Здесь присваивание нового имени
 FileIO.FileSystem.RenameFile(My.Application.impath, My.Application.imname & IO.Path.GetExtension(My.Application.impath))  ' процесс переименования, где и идет ошибка
End Sub

Class MainWindow
    Implements IDisposable
  Private disposed As Boolean = False
  Public Overloads Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
    Protected Overridable Overloads Sub Dispose(disposing As Boolean)
        If disposed = False Then
            If disposing Then
 
                disposed = True
            End If
           
        End If
    End Sub

Dim OFD As New OpenFileDialog
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OFD.ShowDialog = DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(OFD.FileName)
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PictureBox1.Image.Dispose()
        FileIO.FileSystem.RenameFile(OFD.FileName, TextBox1.Text & ".jpg")
    End Sub