For Each item As rEntry In pList
            If item.id = DataGridView1.SelectedRows(0).Cells(0).Value Then
                If item.uninstall <> String.Empty Then
                    Shell(item.uninstall, AppWinStyle.NormalFocus)
                Else
                    Dim proc As New Process
                    proc.StartInfo.FileName = "msiexec"
                    proc.StartInfo.Arguments = " /uninstall " & item.ProductCode
                    proc.Start()
                End If
                Exit For
            End If
        Next