مشكلة استخدام Progressbar اثناء عمل البرنامج

هذا لان البرنامج ينشغل بتنفيذ الكود الخاص بالعملية و الحل هو وضع العملية في ثرد خاص بيها

			Dim MyThread As New System.Threading.Thread(AddressOf YourFunction)
		MyThread.Start()

ووضع العملية الطويلة في فنشن او سب منفرد

Sub YourFunction()
		Dim A As Int64 = 0
		Dim Sum As Int64 = 0
		Do
			If ProgressBar1.Value = ProgressBar1.Maximum Then
				ProgressBar1.Value += 1
			Else
				ProgressBar1.Value = 0
			End If
			Sum = Sum + A
		Loop While (A = 1000000000000000000)
	End Sub

تفضل هذا كود برنامجك بعد التعديل وأصبح الـ ProgressBar يعمل

Public Class Form1

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

		ProgressBar1.Value = 0

		'مجموعة من الأوامر تأخد وقت في التنفيذ
		Dim a As Double
		a = 0

		Do Until a > 20000
			a = a + 0.0002
			ProgressBar1.Value = CInt((100 * a) / 20000)
		Loop

		MsgBox("تم تنفيذ المهمة")

	End Sub


End Class

شكرا لكم وجزاكم الله خيرا