[kiki]

اضافة لما قدمه سعود
يمكنك استخدام هذا الـ Function بوضعه باى مكان تريده

كود :

   Public Function openForm(ByVal FormName As String, Optional GetForm As Form = Nothing)
       Try
           FormName = Application.ProductName & "." & FormName
           Dim FormInstanceType As Type = Type.GetType(FormName, True, True)
           GetForm = CType(Activator.CreateInstance(FormInstanceType), Form)
           GetForm.Show()
       Catch ex As Exception
           MessageBox.Show("Sorry, the form you want to open does not exist", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Warning)
       End Try

       Return False
   End Function

ومن ثم استخدام هذا السطر فى اى حدق تريده

كود :

openForm(TextBox1.Text)

طبعاً استبدل TextBox1.Text باى نص تريد استخدامه
بهذا الكود اذا كان اسم الفروم غير صحيح سيتجنب الاخطاء ويظهر رسالة يمكنك تحريرها كما تشاء
بالتوفيق