[عبد العزيز البسكري]

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

بعد شكر إخواني الأفاضل ممن سبقوني بالمشاركة

بعد التجربة .. هذا الكود يعمل بطريقة جيدة أخي الكريم

كود :

  Public Function Get_Name_Form(ByVal Form_Name As String) As Form
       Try
           Dim Frm_Type = Reflection.Assembly.GetEntryAssembly.GetExportedTypes.FirstOrDefault(Function(x) x.Name = Form_Name)
           Dim Return_Form = TryCast(Activator.CreateInstance(Frm_Type), Form)
           Return TryCast(Return_Form, Form)
       Catch ex As Exception
           Return Nothing
       End Try
   End Function

بالفورم لود ..

كود :

   Dim MyForm = Get_Name_Form("Form1")
       If MyForm IsNot Nothing Then
           MessageBox.Show("الفورم 1 موجود")
       Else
           MessageBox.Show("الفورم 1 غير موجود")
       End If

تحياتي