Imports System.Threading
 
Public Class clsTest
 
   Private Pool As New Semaphore(5, 5)
 
 
   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()
      Pool.WaitOne()
      Thread.Sleep(2000)
      Console.WriteLine("Thread beendet...")
      Pool.Release(1)
   End Sub
 
End Class

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