Please try the following code, it will work: 
Code
//c#
private void getSoftwareList()
{
Microsoft.Win32.RegistryKey rk = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(@"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall");
String[] names = rk.GetSubKeyNames();
foreach(String s in names)
{
textbox1.Text+=(s+"\r\n");
}
}
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
http://forums.asp.net/t/1306676.aspx