Private Sub ReadFilesFromRegistyToCreateTree(ByVal FileRegPath As String)
 
        Dim FileRegHive As RegistryKey = Registry.CurrentUser.OpenSubKey( _
          FileRegPath & "\Files")
        Dim i As Integer
        Dim FilePath As String = String.Empty
 
        Dim FileSubKey() As String = FileRegHive.GetSubKeyNames
 
        Dim Node As New TreeNode("Dateien")
        Me.tvMain.Nodes.Add(Node)
 
        For i = 0 To FileSubKey.Length - 1
            Dim RegFileHive As RegistryKey = Registry.CurrentUser.OpenSubKey( _
              FileRegPath & "\Files" & "\" & FileSubKey(i))
            FilePath = RegFileHive.GetValue("SourceNameDirectory")
            CreateFolderTree(FilePath, Node)
        Next
 
    End Sub

    Private Sub CreateFolderTree(ByRef ParentKey As String, ByRef _
      ParentTreeNode As TreeNode)
 
        Dim SplitFilePath() As String = ParentKey.Split("\")
        Dim i As Integer
 
        For i = 0 To SplitFilePath.Length - 1
            Debug.Print(SplitFilePath(i))
            Dim Node As New TreeNode(SplitFilePath(i))
 
            If ParentKey.IndexOf("\") = -1 Then
                Exit For
            End If
 
            ParentTreeNode.Nodes.Add(Node)
            CreateFolderTree(ParentKey.Substring(ParentKey.IndexOf("\") + 1), _
              Node)
 
        Next
 
        tvMain.Update()
 
    End Sub