Dim test0815 As New Amib.Threading.SmartThreadPool

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