[أبو يعقوب]

طريقة أفضل باستخدام BackgroundWorker

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Control.CheckForIllegalCrossThreadCalls = False
        Me.BackgroundWorker1.RunWorkerAsync()

    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        For XX = 0 To 1000000000
            If XX Mod 50000 = 0 Then
                TTX2.Text = XX
            End If

        Next
    End Sub 


لاحظ اني لم اعرض كل قيمة للعداد xx لأنه يستغرق وقت في رسم النص ، اختصارا أعرض مضاعفات الـ 50000 وأنت حر