[Anas Mahmoud]

ال Async من اول 2015 اظن

طيب جرب ال threading 

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim Th As New Thread(New ThreadStart(AddressOf Threadsub))
       Th.Start()

 
 End Sub
   Sub Threadsub()
       For i As Integer = 1 To 5
           Invoke(Sub() ListBox1.Items.Add(i))
           Thread.Sleep(500)
       Next
   End Sub