Dim bl As New System.ComponentModel.BindingList(Of String)
 
    Public Delegate Sub updateListHandler(ByVal los As List(Of String))
 
    Public Sub updateList(ByVal los As List(Of String))
        For Each s As String In los
            bl.Add(s)
        Next
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        System.Threading.Thread.Sleep(5000)
        Dim los As New List(Of String)
 
        los.Add("sss")
        los.Add("ttt")
 
        Me.Invoke(New updateListHandler(AddressOf updateList), New Object() _
          {los})
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist