Редактирование загруженного файла в Image: ошибка - файл занят другим процессом

Dim LB as New ListBox()
Dim dlg as New OpenFileDialog()
Private Sub OpenFolder_Click(sender As Object, e As RoutedEventArgs) Handles OpenFolder.Click
        Try
            If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
                LB.Items.Clear()
                LB.Items.AddRange(IO.Directory.GetFiles(IO.Path.GetDirectoryName(dlg.FileName), "*.jpg"))
                LB.SelectedItem = dlg.FileName
                CreateBitmap()
            End If
        Catch ex As Exception
        End Try
    End Sub
' загрузка картинки в Image1
Private Function CreateBitmap()
        Dim bitmap As New BitmapImage()
        bitmap.BeginInit()
        bitmap.UriSource = New Uri(LB.SelectedItem)
        bitmap.EndInit()
        Image1.Source = bitmap
        Return bitmap
    End Function
 
        End If

 Private Sub DelButton_Click(sender As Object, e As RoutedEventArgs) Handles DelButton.Click
     Dim DelFile as String = LB.SelectedItem
     LB.SelectedIndex += 1
     CreateBitmap()
     IO.File.Delete(DelFile)
 End Sub

        Using BM As New Bitmap("C:\1.jpg")
            Dim TMP As New Bitmap(BM)
            PictureBox1.BackgroundImage = TMP
        End Using

        Using fs As New IO.FileStream("C:\1.jpg", IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Delete)
            PictureBox1.Image = Image.FromStream(fs)
        End Using