foreach(String s in names)
{
textbox1.Text+=(s+"\r\n");
}
}
Code 'vb.net PrivateSub getSoftwareList() Dim rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall") Dim names AsString() = rk.GetSubKeyNames ForEach s AsStringIn names
textbox1.Text&=s+vbCtrf; Next EndSub