Dim Key As RegistryKey = Registry.LocalMachine.OpenSubKey( _
   "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", False)
        Dim SubKeyNames() As String = Key.GetSubKeyNames()
        Dim Index As Integer
        Dim SubKey As RegistryKey
        For Index = 0 To Key.SubKeyCount - 1
            SubKey = Registry.LocalMachine.OpenSubKey( _
              "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" + "\" + _
              SubKeyNames(Index), False)
            If Not SubKey.GetValue("DisplayName", "") Is "" Then
                TextBox1.Text = TextBox1.Text & (CType(SubKey.GetValue( _
                  "DisplayName", ""), String)) & vbCrLf
            End If
        Next