Public Partial Class MainForm
 (...)
 
Private Sub ThreadCode()
  (...)
  UpdateList(" » Kopiere Datei: " & citem.sourceFile.FullName)
  citem.sourceFile.CopyTo(citem.targetFile.FullName, True)
  citem.sourceFile.Attributes = citem.targetFile.Attributes
  (...)
  If Me.Worklist.Count > 0 Then
    Dim z As New System.Threading.Thread(AddressOf ThreadCode)
    z.start
  Else
   CopyThreadActive = False
Exit Sub
End Sub
 
Delegate Sub GenericOneParamDelegate(ByVal ItemText As String)
 
Private Sub UpdateList(ByVal ItemText As String)
   If ListBox.InvokeRequired then
        Dim z As New GenericOneParamDelegate(AddressOf UpdateList)
        Invoke (z, New Object() {ItemText})
   else
     Me.listBox.Items.Add(ItemText)
     Me.listBox.Update()
   end if
End Sub
 
End Class