[سامي محمد]

بدون تعقيب على الأخوة الكرام
-----
لكي لا يعلق البرنامج الافضل وضع الامر في BackgroundWorker  ولفعل ذلك اضف هذه الاداة اولا واليك الاكواد

----

كود :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        BackgroundWorker1.RunWorkerAsync()
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub
    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim i As Byte
        For x As Integer = 0 To 100
            If i = 4 Then Threading.Thread.Sleep(6000) : i = 0
            ListBox1.Items.Add(x + 1)
            i += 1
        Next
    End Sub