Imports Microsoft.win32
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ShowItems()
    End Sub
 
    Private Sub ShowItems()
        Me.TreeView1.Nodes.Clear()
        Dim Key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\")
 
        If Key Is Nothing Then
            MessageBox.Show("Schlüssel existiert nicht.")
            Exit Sub
        End If
 
        Dim Node As New TreeNode(Key.Name)
        Me.TreeView1.Nodes.Add(Node)
 
        Me.R_ShowItems(Key, Node)
    End Sub
 
    Private Sub R_ShowItems(ByRef ParentKey As RegistryKey, ByRef _
      ParentTreeNode As TreeNode)
        Dim SubKeyNames() As String = ParentKey.GetSubKeyNames
        For Each SubKeyName As String In SubKeyNames
            Dim SubKey As RegistryKey
            Try
                SubKey = ParentKey.OpenSubKey(SubKeyName, False)
            Catch ex As Exception
                Continue For
            End Try
            If SubKey Is Nothing Then Continue For
            Dim Node As New TreeNode(SubKey.Name)
            ParentTreeNode.Nodes.Add(Node)
            Me.R_ShowItems(SubKey, Node)
        Next
    End Sub
 
End Class

Robert Blutner
robertblutner.de