[عبدالله الدوسري]

وعليكم السلام

كود :

       Select Case TextBox1.Text.Trim.ToLower
           Case "Form1".ToLower
               Dim Form1 As New Form1
               Form1.Show()
           Case "Form2".ToLower
               Dim Form2 As New Form2
               Form2.Show()
           Case "Form3".ToLower
               Dim Form3 As New Form3
               Form3.Show()
           Case "Form4".ToLower
               Dim Form4 As New Form4
               Form4.Show()
           Case "Form5".ToLower
               Dim Form5 As New Form5
               Form5.Show()
           Case Else
               MsgBox("لا توجد نافذة بنفس الاسم")
       End Select