[الشاكي لله]

^
دالة some في الاعلى من الخطأ استدعائها بواسطة Invoke لان فيها loop وتاخير ..
عليك بعمل Invoke فقط للاكواد التي تتعامل مع الForm واداوته ، وهي في كودك :-

Label1.Text = a
ProgressBar1.Value = a


بامكانك لصق هذين الكودين في دالة جديدة مثلا (UpdateForm) وثم استدعاء UpdateForm بواسطة Invoke
او الطريقة الافضل هي وضع الكودين في دالة مجهولة عشان تقدر توصل للبارمترات بسهولة :-

PHP كود :

Private Sub some()
       For a = 0 To 1000 Step 1

    Me.Invoke(new MethodInvoker(Sub ()
           Label1.Text = a
           ProgressBar1.Value = a
    End sub))

           Threading.Thread.Sleep(150)
       Next
End Sub 


تذكر ، الدالة اعلاه قم باستدعائها بشكل طبيعي وليس باستعمال Invoke