الحصول على قائمة البرامج المثبتة في النظام

انشئ مشروع جديد و ضع عليه ListBox و ضع خاصية Dock لـ ListBox ليملأ النموذج

ضع الكود التالي في الحدث Load للنموذج

		Dim hklm As Microsoft.Win32.RegistryKey
		Dim software As Microsoft.Win32.RegistryKey
		Dim subkeys() As String
		Dim keyname As String

		hklm = My.Computer.Registry.LocalMachine
		software = hklm.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
		subkeys = software.GetSubKeyNames()

		Me.ListBox1.Items.Clear()
		For Each keyname In subkeys
			Me.ListBox1.Items.Add(keyname)
		Next