[silverlight]

هناك أساليب كثيرة للإجابة علي سؤالك و الكود التالي يمثل واحدا من تلك الأساليب

كود :

  Private Function GetFormByName(formName As String) As Form
       Select Case formName
           Case "Form1"
               Return New Form1
           Case "Form2"
               Return New Form2
               ' continue the same way
       End Select

       Return Nothing
   End Function

الاستخدام

كود :

 Dim current As Form = GetFormByName("Form1")
       current.Show()