Как мне выпустить файл

Question

У меня были проблемы с очисткой графического блока. Когда пользователь нажимает кнопку загрузки lo go, система копирует любой файл изображения, выбранный пользователем и скопированный в репозиторий. Когда пользователь очищает lo go, изображение в графическом окне удаляет файл из хранилища и открывает изображение по умолчанию. Я получаю сообщение об ошибке исключения, когда нажимаю кнопку очистки lo go.

Private Sub cmdClearLogo_Click(sender As Object, e As EventArgs) Handles cmdClearLogo.Click
    If strLogo IsNot "C:\Fowl\Images\Image Not Available.jpg" Then
        picLogo.Image = Nothing
        picLogo.Dispose()
        My.Computer.FileSystem.DeleteFile(strLogo)
        strLogo = "C:\Fowl\Images\Image Not Available.jpg"
        picLogo.BackgroundImage = Image.FromFile(strLogo)
    End If
End Sub

    Private Sub cmdUploadLogo_Click(sender As Object, e As EventArgs) Handles cmdUploadLogo.Click
    Dim strSource As String
    My.Computer.FileSystem.CreateDirectory("C:\Fowl\Repository")
    ofdLogo.ShowDialog()
    If DialogResult.OK Then
        strSource = ofdLogo.FileName
        strLogo = "C:\Fowl\Repository\" + lblIDNO.Text + "l.jpg"
        My.Computer.FileSystem.CopyFile(strSource, strLogo)
        picLogo.BackgroundImage = Image.FromFile(strLogo)
    End If
End Sub

Answer 1

Наконец разобрался:

Private Sub cmdClearLogo_Click(sender As Object, e As EventArgs) Handles cmdClearLogo.Click
    Dim tmpString As Image
    Dim tmpFile As String
    If strLogo IsNot "C:\Fowl\Images\Image Not Available.jpg" Then
        tmpFile = strLogo
        tmpString = picLogo.BackgroundImage
        tmpString.Dispose()
        strLogo = "C:\Fowl\Images\Image Not Available.jpg"
        picLogo.BackgroundImage = Image.FromFile(strLogo)
        My.Computer.FileSystem.DeleteFile(tmpFile)
    End If
End Sub
Private Sub cmdUploadLogo_Click(sender As Object, e As EventArgs) Handles cmdUploadLogo.Click
    Dim strSource As String
    My.Computer.FileSystem.CreateDirectory("C:\Fowl\Repository")
    ofdLogo.ShowDialog()
    If DialogResult.OK Then
        strSource = ofdLogo.FileName
        strLogo = "C:\Fowl\Repository\" + lblIDNO.Text + "l.jpg"
        My.Computer.FileSystem.CopyFile(strSource, strLogo)
        picLogo.BackgroundImage = Image.FromFile(strLogo)
    End If
End Sub