Dim MyTaskCounter As Integer = 0
 
'DT ist ein Object vom Typ DataTable und enthält alle Informationen über die 
' Bilder und gibt mehrere tausend Datensätze zurück
 
   For Each DR As DataRow In DT.Rows
      'Counter für das begrenzen der gleichzeitigen Tasks     
      Do Until MyTaskCounter < 50
         Application.DoEvents()
      Loop
 
      MyTaskCounter += 1
 
      Dim t As Task = Task.Run(Sub()
            Set_ImageHash(DR)
            MyTaskCounter -= 1
      End Sub)
      tasks.Add(t)
   Next