Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Threading.ThreadPool.QueueUserWorkItem(New Threading.WaitCallback(AddressOf FillByThreadPool))
End Sub
Private Delegate Sub AddCallback(ByVal items() As Object)
Private Sub FillByThreadPool(ByVal state As Object)
Dim l As New List(Of String)
For i As Integer = 1 To 10
l.Add(i.ToString)
Next
Me.ListBox1.Invoke(New AddCallback(AddressOf Me.ListBox1.Items.AddRange), New Object() {l.ToArray})
End Sub