Merhaba,
oncelikle projemize bir tane listview nesnesi ekliyoruz.
listview in properties kısmında columns seceneğini acıyoruz ve 3 tane
columnheader ekliyoruz
Columun1 textine Program Adı
Column2 textine Uninstall yolu yazıyoruz.
Column3 textine Sessiz Uninstal yazıyoruz

kod kısmına gecebiliriz artık.
en ust kısma
Imports Microsoft.Win32
import ediyoruz.

Daha Sonra Form_Load olayına
For Each AI As AppInfo In GetInstalledApps()
If AI.UnInstallPath IsNot Nothing Then
Dim LI As New ListViewItem
LI.Text = AI.Name
LI.SubItems.Add(AI.UnInstallPath.Replace("""", ""))
LI.SubItems.Add(AI.SilentUnInstallPath)
ListView1.Items.Add(LI)
End If
Next

şimdi gerekli fonksiyonları ekleyelim.
Structure AppInfo
Dim Name As String
Dim UnInstallPath As String
Dim SilentUnInstallPath As String
End Structure

Function GetInstalledApps() As List(Of AppInfo)
Dim DestKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uni nsta ll\"
Dim iList As New List(Of AppInfo)
For Each App As String In Registry.LocalMachine.OpenSubKey(DestKey).GetSubKe yNames
iList.Add(New AppInfo With )
Next
Return iList
End Function


ve en son listview1 in doubleclick eventine programı silmesi icin
For Each LI As ListViewItem In ListView1.SelectedItems
If LI.SubItems(1).Text.ToLower.StartsWith("msiexec") Then
Dim p As New Process
p.StartInfo.Arguments = LI.SubItems(1).Text.Remove(0, LI.SubItems(1).Text.IndexOf(" "))
p.StartInfo.FileName = "msiexec.exe"
p.Start()
Else
Process.Start(LI.SubItems(1).Text)
End If
Next

artık programı calıştırdığınızda yuklu programları listeleyebilir ve silebilirsiniz boylece basit bir program ekle/kaldır programı yapmış oldunuz geliştirmeye acıktır kolay gelsin.
__________________