Dim tasklist As New List(Of Threading.Tasks.Task)
 
   Delegate Sub WriteTextDelegate(ByVal label1 As Label, text As String)
 
   Function Action(byval directory as string) as boolean
 
        Dim params(1) As Object
        For Each file As String In IO.Directory.GetFiles(directory)
            params(0) = Label1
            params(1) = file
            Me.Invoke(New WriteTextDelegate(AddressOf WriteText), params)
            Threading.Thread.Sleep(1000)
        Next file
        return true
   End Sub

    tasklist.Add(Threading.Tasks.Task.Factory.StartNew(Function() Action( _
      "C:\daten")))

    Private Sub WriteText(ByVal lbl As Label, text As String)
        lbl.Text = text
    End Sub