كيفية معرفة أن الفورم مفتوحة؟

هناك مجموعة النوافذ المفتوحة My.Application.OpenForms يمكنك استخدامها لمعرفة أي النوافذ مفتوحة من خلال حلقة For...Each مثلا

		For Each s As Form In My.Application.OpenForms
			MsgBox(s.Text)
		Next

السلام عليكم ورحمة الله

كما قال المشرف العزيز يمكنك استخدام For Each ، اذا كنت قد فهمت قصدك انت تريد فتح نموذج 2 واذا كان قد تم فتحه من قبل تريد أن تجعله النموذج النشط ، وبالاقتباس من الشفرة المكتوبة أعلاه وبافتراض أن النموذج الذي تريد فتحه او تنشيطه باسم Form2 تستخدم الكود التالي

For Each frm As Form In My.Application.OpenForms
If frm Is Form2 Then
frm.Activate
Else
frm.Show
End If
Next

والله الموفق