for each file....
 
                Problems += 1
                str(0) = Problems
                str(1) = str(1).Substring(2)
                str(2) = File.FullName
                itm = New ListViewItem(str)
                InvokeControl(ListView, Sub(x) x.BeginUpdate())
                InvokeControl(ListView, Sub(x) x.Items.Add(itm))
                InvokeControl(ListView, Sub(x) x.EnsureVisible(ListView.Items.Count - 1))
                InvokeControl(ListView, Sub(x) x.EndUpdate())
end for...
 

   Private Sub AddItemToListView()
        str(0) = Problems
        str(1) = str(1).Substring(2)
        str(2) = File.FullName
        itm = New ListViewItem(str)
        ListView.SuspendLayout()
        InvokeControl(ListView, Sub(x) x.BeginUpdate())
        InvokeControl(ListView, Sub(x) x.Items.Add(itm))
        InvokeControl(ListView, Sub(x) x.EnsureVisible(ListView.Items.Count - 1))
        InvokeControl(ListView, Sub(x) x.EndUpdate())
        ListView.ResumeLayout()
        If NumberIsOdd(Problems) Then
            itm.BackColor = Color.FromArgb(15, 15, 15)
        Else
            itm.BackColor = Color.FromArgb(30, 30, 30)
        End If
    End Sub

    ' Close
    Private Sub Form_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Worker.Dispose() ' Liberar los recursos del BackgroundWorker
 
        ' Eliminar la visibilidad del SysTrayMenu antes de matar la APP, para que no se quede visible en el SystemTray...
        SystrayMenu.Visible = False
        SystrayMenu.Dispose()
 
        End ' Matar todo lo relacionado con la APP
    End Sub

ContextMenu_Open_Dir.Image = My.Resources.OpenDir

    Private Sub NewMenu_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles NewMenu.ItemClicked
        Dim FileInformation = Nothing
        If e.ClickedItem.Name = "OpenDir" Then
            For Each Entry In ListView1.SelectedItems()
                FileInformation = My.Computer.FileSystem.GetFileInfo(ListView1.SelectedItems(0).SubItems(1).Text)
                MsgBox("explorer.exe" & " /select," & FileInformation.DirectoryName & "\" & FileInformation.Name)
                'Process.Start("explorer.exe", " /select," & FileInformation.DirectoryName & "\" & FileInformation.Name)
                FileInformation = Nothing
            Next
        End If

        If e.ClickedItem.Name = "DeleteEntry" Then
            For Each Entry In ListView1.SelectedItems()
                ListView1.Items.Remove(ListView1.SelectedItems(0))
            Next
        End If

If Button1.Image = My.Resources.Cancel_button Then
...

operator = is not defined for types system.drawing.image and system.windows.forms.bitmap

' This event happens when a FileLink is clicked
    Private Sub results_box_LinkClicked_1(sender As Object, e As LinkClickedEventArgs) Handles results_box.LinkClicked  ' I can't add here a handle for the contextmenu: "results_box.ContextMenu" but anyway I don't know if that is the way to do it
 
       NewMenu.show
        ' Dim FileInformation = My.Computer.FileSystem.GetFileInfo(e.LinkText)
        ' Process.Start("explorer.exe", " /select," & FileInformation.DirectoryName & "\" & FileInformation.Name)
    End Sub