Освобождение неиспользуемых ресурсов в приложении

Private Sub СписокФайлов(ByVal folderPath As String)
        ListBox1.Items.Clear()
        Dim ИменаФайлов = My.Computer.FileSystem.GetFiles(folderPath, FileIO.SearchOption.SearchAllSubDirectories, "*.jpeg", "*.jpg")
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = ИменаФайлов.Count
        ProgressBar1.Step = 1
        ProgressBar1.Value = 0
 
        For Each ИмяФайла As String In ИменаФайлов
            ProgressBar1.Increment(1)
            'PictureBox1.Dispose()
            'PictureBox1.Refresh()
            'PictureBox1.Update()
            Try
                PictureBox1.Image = System.Drawing.Image.FromFile(ИмяФайла)
            Catch ex As Exception
                ListBox1.Items.Add(ИмяФайла)
            End Try
            'Me.Finalize()
            'Me.Dispose()
            'PictureBox1.Dispose()
            Label1.Refresh()
            Label1.Text = ИмяФайла
        Next
 
        ProgressBar1.Visible = False
        Label1.Text = "Поиск в директории завершён!"
    End Sub

For Each ИмяФайла As String In ИменаФайлов
    ProgressBar1.Increment(1)
    Try
        Using mstream As New System.IO.MemoryStream(File.ReadAllBytes(ИмяФайла))
            PictureBox1.Image = System.Drawing.Image.FromStream(mstream)
        End Using
    Catch ex As Exception
        ListBox1.Items.Add(ИмяФайла)
    End Try
    Label1.Refresh()
    Label1.Text = ИмяФайла
Next

Dim ИменаФайлов = Directory.EnumerateFiles(folderPath, "*.jp*g", SearchOption.AllDirectories)

Dim ИменаФайлов = Directory.EnumerateFiles(folderPath, "*.jp*g", SearchOption.AllDirectories). _
    Where(Function(n) ".jpg".Equals(Path.GetExtension(n), StringComparison.OrdinalIgnoreCase) OrElse ".jpeg".Equals(Path.GetExtension(n), StringComparison.OrdinalIgnoreCase))

For Each ИмяФайла As String In ИменаФайлов
    ProgressBar1.Increment(1)
    Try
        Using mstream As New System.IO.MemoryStream(File.ReadAllBytes(ИмяФайла))
            PictureBox1.Image = System.Drawing.Image.FromStream(mstream)
            PictureBox1.Image.Dispose()
            PictureBox1.Image = Nothing
        End Using
    Catch ex As Exception
        ListBox1.Items.Add(ИмяФайла)
    End Try
    Label1.Refresh()
    Label1.Text = ИмяФайла
Next

    For Each fName As String In fNames
        findBad(fName)
    Next
    MsgBox("theEnd")
'…
Public Sub findBad(ByVal fNm As String)
    Try
        Dim bmp As Bitmap = New Bitmap(fNm)
        Using bmp
            If Not bmp.RawFormat.Equals(ImageFormat.Jpeg) Then
                ListBox1.Items.Add(fNm)
            End If
        End Using
    Catch ex As Exception
        ListBox1.Items.Add(fNm)
    End Try
End Sub

Dim bmp As Bitmap = New Bitmap(fNm)

Dim bmp As Bitmap = System.Drawing.Image.FromStream(New System.IO.MemoryStream(File.ReadAllBytes(fNm)))

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim fNames = My.Computer.FileSystem.GetFiles("C:\Users\Pictures\ImagesPrj", FileIO.SearchOption.SearchAllSubDirectories, "*.jpeg", "*.jpg")
    Dim sW As New Stopwatch
    sW.Start()
    For Each fName As String In fNames
        findBad(fName)
    Next
    sW.Stop()
    Dim v1 As String = "v1=" & sW.ElapsedMilliseconds.ToString
    sW = New Stopwatch
    sW.Start()
    For Each fName As String In fNames
        findBad2(fName)
    Next
    sW.Stop()
    Dim v2 As String = "v2=" & sW.ElapsedMilliseconds.ToString
    MsgBox("Всего файлов " & fNames.Count & vbCrLf & v1 & vbCrLf & v2, , "test")
End Sub
Public Sub findBad(ByVal fNm As String)
    Try
        Using mstream As New System.IO.MemoryStream(File.ReadAllBytes(fNm))
            If System.Drawing.Image.FromStream(mstream).RawFormat.Equals(ImageFormat.Jpeg) Then Exit Sub
            ListBox1.Items.Add(fNm)
        End Using
    Catch ex As Exception
        ListBox1.Items.Add(fNm)
    End Try
End Sub
Public Sub findBad2(ByVal fNm As String)
    Try
        Using mstream As New System.IO.MemoryStream(File.ReadAllBytes(fNm))
            PictureBox1.Image = System.Drawing.Image.FromStream(mstream)
            PictureBox1.Image.Dispose()
            PictureBox1.Image = Nothing
        End Using
    Catch ex As Exception
        ListBox1.Items.Add(fNm)
    End Try
End Sub