مشكلة في العمل مع تعدد المسارات Multithreading

يرجى ارفاق مثال عملي عما تحاول فعله حتى نستطيع مساعدتك

المثال مرفق

Problem.rar

سبب حدوث هذه المشكلة هو أنه عند استدعاء الدالة Invoke يجب أن يكون للنافذة مقبض Handle ويصدر الخطأ الذي يحصل معك في إحدى حالتين الأولى هي أنه لم يتم إنشاء النافذة بعد أو أنه قد تم تدميرها فعلا

لذا يجب علينا تجنب إغلاق النافذة قبل أن ينتهي الإجراء وإحد الحلول السريعة - ربما لايكون الأفضل ولكنه الذي خطر لي حاليا - هو باستخدام متغير Shared نفحص قيمته في الحدث FormClosing قبل السماح للنافذة بالإغلاق وفيما يلي الكود الخاص بنافذتك بعد اقتراحي هذا

Public Class Form1
	Dim WithEvents dtSet As New ContactsDataSet
	Dim WithEvents taCountries As New ContactsDataSetTableAdapters.tblCountryTableAdapter

	Private Shared Working As Boolean = False

	Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
		If Working = True Then e.Cancel = True
	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Working = True
		Dim t As New Threading.Thread(AddressOf FillDataSet)
		t.Start()

		Me.Close()
	End Sub

	Private Sub ShowData()
		ComboBox1.DisplayMember = "CountryName"
		ComboBox1.ValueMember = "CountryID"

		ComboBox1.DataSource = dtSet.tblCountry.ToList
	End Sub

	Delegate Sub ShowDataDelegate()
	Dim dd As ShowDataDelegate

	Private Sub FillDataSet()
		Working = True
		taCountries.Fill(dtSet.tblCountry)

		dd = New ShowDataDelegate(AddressOf ShowData)
		Me.Invoke(dd)
		Working = False
	End Sub

End Class

جزاك الله خيراً أخي محمد سأستخدم هذه الفكرة حالياً و لكن إذا

توصلت إلى حل آخر أرجو أن تخبرني به .