Code
'
vb.net???
??
Private
?
Sub
?getSoftwareList()
????
Dim
?rk?
As
?Microsoft.Win32.RegistryKey?
=
?Microsoft.Win32.Registry.LocalMachine.OpenSubKey(
"
SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
"
)?????
????
Dim
?names?
As
?
String
()?
=
?rk.GetSubKeyNames?????
????
For
?
Each
?s?
As
?
String
?
In
?names?????
??????textbox1.Text
&=
s
+
vbCtrf;??
????
Next
?????
??
End
???
Sub