Dim TaskThread As Thread
        Dim item As DictionaryEntry
 
 
        For i As Integer = 0 To TaskThreads.Count
            item.Value = i
            TaskThread = CType(item.Value, Thread)
 
            If (TaskThread.ThreadState And ThreadState.Running) = _
              ThreadState.Running Then
                TaskThread.Abort()
            End If
        Next