Public stack As String
    Private Sub btn_InsertObjects_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles btn_InsertObjects.Click
        Dim dir As String
        Dim subdir As String
        For Each subdir In System.IO.Directory.GetDirectories( _
          Me.dlb_Folders.Path)
            stack = stack & subdir & vbCrLf
            If LCase(stack) Like "*?:\recycler" & vbCrLf Then
                stack = Microsoft.VisualBasic.Left(stack, Len(stack) - 13)
            ElseIf LCase(stack) Like "*?:\system volume information" & vbCrLf _
              Then
                stack = Microsoft.VisualBasic.Left(stack, Len(stack) - 30)
            End If
        Next
        dir = NextLine()
        Do While Not dir = ""
            On Error Resume Next
            For Each subdir In System.IO.Directory.GetDirectories(dir)
                stack = stack & subdir & vbCrLf
            Next
            dir = NextLine()
            Application.DoEvents()
        Loop
        MsgBox(stack)
    End Sub
    Private Function NextLine()
        Static lastdir As String
        Static curline As Integer = 0
        Dim line As String
        Dim endLine As Integer
        Dim dir As String
        Do Until endLine = curline + 1
            Do Until Microsoft.VisualBasic.Right(line, 2) = vbCrLf
                line = Microsoft.VisualBasic.Left(stack, Len(line) + 1)
                Application.DoEvents()
            Loop
            line = line & "®"
            endLine = endLine + 1
            Me.Label1.Text = "curline=" & curline & "endline=" & endLine
            Application.DoEvents()
        Loop
        line = Microsoft.VisualBasic.Left(line, Len(line) - 3)
        Do While Not Microsoft.VisualBasic.Left(dir, 2) = vbCrLf
            dir = Microsoft.VisualBasic.Right(line, Len(dir) + 1)
            If Len(dir) >= Len(line) Then Exit Do
            Application.DoEvents()
        Loop
        If Not Len(dir) >= Len(line) Then dir = Microsoft.VisualBasic.Right( _
          dir, Len(dir) - 2)
        curline = curline + 1
        If Not dir = lastdir Then
            lastdir = dir
            Return dir
        Else
            Return ""
        End If
    End Function