Queue<MeineDatenClass> myQueue...
.
.
.
 
sub DoWork(...)
 
Dim ExitLoop as boolean = false
 
While Not ExitLoop Do
  Dim myData as MeineDatenClass
 
  SyncLock myQueue.SyncRoot
 
    if myQueue.Count = 0 Then
      ExitLoop = True
    else
      myData = myQueue.Dequeue()
    End If
  End SyncLock
 
' Verarbeite MyData
 
  if bgw.CancellationPending Then
    ExitLoop = True
  End If
End While