Code:
Private Sub DirSearch(ByVal sDir As String)
Application.DoEvents()
For Each d As String In Directory.GetDirectories(sDir)
If d.ToLower.Contains("itunes") Or d.ToLower.Contains("windows") Then
Continue For
End If
Console.WriteLine(d)
DirSearch(d)
ListBox1.Items.Add(d)
Timer1.Start()
Next
End Sub
By the way, why'd you leave the random Console.WriteLine in there? <.<
And I'll just point out that starting the timer every time the for loops occurs may be unnecessary (depending on what your code does).