Dim Formname As String = "FORM"
        Dim myAssembly As System.Reflection.Assembly = _
          System.Reflection.Assembly.GetExecutingAssembly
 
        Dim strAssemblyName As String = myAssembly.GetName().Name.ToString
 
        Dim FullName As String = myAssembly.GetType(strAssemblyName & "." & _
          Formname, False, True).ToString
 
        Dim myForm As System.Windows.Forms.Form = CType( _
          myAssembly.CreateInstance(FullName), System.Windows.Forms.Form)
 
        myForm.Show()