Imports System.Threading
 
Public Class clsTest
 
   Private RunningThreads As Integer = 0
 
   Public Sub StartThreads()
      For x As Integer = 1 To 20
         Dim t As New Thread(AddressOf RunThreads)
         t.Start()
      Next
   End Sub
 
   Private Sub RunThreads()
      Do
         Application.DoEvents()
      Loop Until RunningThreads < 5
 
      RunningThreads += 1
      Thread.Sleep(2000)
      RunningThreads -= 1
      Console.WriteLine("Thread beendet...")
   End Sub
 
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control