14-03-18, 01:39 PM
وعليكم السلام
كود :
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