Imports Microsoft.Win32
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim var As String = ""
Dim sRegKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
Dim Keys As RegistryKey = Registry.LocalMachine.OpenSubKey(sRegKey)
For Each sNombreKey As String In Keys.GetSubKeyNames
Dim Key As RegistryKey = Keys.OpenSubKey(sNombreKey)
If Key.GetValue("DisplayName") <> "" Then
var = Key.GetValue("DisplayName") & Chr(13) & var
End If
TextBox1.Text = var
Next
End Sub
End Class