Dim test0815 As New SmartThreadPool()
 
Dim wigstartinfo As New WIGStartInfo()
wigstartinfo.StartSuspended = True
Dim wig = test0815.CreateWorkItemsGroup(100, wigstartinfo)
 
c = ofs.Children
For Each oshare In c
  Select Case oshare.Name
    Case "HOME"
    Case "user$"
    Case Else
      wig.QueueWorkItem(New WorkItemCallback( Me.GetFolderSize ), oshare.Name)
  End Select
Next