Public Class frmTasks
 
    Dim tasklist As New List(Of Threading.Tasks.Task)
 
    Dim filelabel As New Label With {.Parent = Me}
    Dim filelabelstr As String
 
    Private Sub frmTasks_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        tasklist.Add(Threading.Tasks.Task.Factory.StartNew( _
                     Sub()
 
                         Dim fl As New FileList("C:\daten")
                         AddHandler fl.progress_event, AddressOf FileListEvent
                         fl.start()
                     End Sub))
    End Sub
 
    Private Sub SetFilelabel()
        filelabel.Text = filelabelstr
    End Sub
 
    Private Sub FileListEvent(ByVal sender As Object, file As String)
 
        filelabelstr = file
        Me.Invoke(New MethodInvoker(AddressOf SetFilelabel))
 
    End Sub
 
 
    Private Class FileList
 
        Public Event progress_event(sender As Object, file As String)
 
        Dim direc As String
 
        Public Sub New(ByVal directory As String)
            direc = directory
        End Sub
 
        Public Sub start()
 
            For Each file As String In IO.Directory.GetFiles(direc)
                RaiseEvent progress_event(Me, file)
                Threading.Thread.Sleep(1000)
            Next
 
        End Sub
    End Class
End Class