Me. Show

	Public Sub New()
		MyBase.New()
		If m_vb6FormDefInstance Is Nothing Then
			If m_InitializingDefInstance Then
				m_vb6FormDefInstance = Me
			Else
				Try 
					'Für das Startformular ist die zuerst erstellte Instanz die 
' Standardinstanz.
					If _
  System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is _
  Me.GetType Then
						m_vb6FormDefInstance = Me
					End If
				Catch
				End Try
			End If
		End If
		'Dieser Aufruf ist für den Windows Form-Designer erforderlich.
		InitializeComponent()
		'Dieses Formular ist MDI-untergeordnet.
		'Dieser Code simuliert die VB6-
		'Funktionalität des automatischen
		' Ladens und Anzeigens eines dem MDI-untergeordneten Formular
		' übergeordneten Elements.
        Me.MdiParent = Projekt.MDIForm1.DefInstance.DefInstance
		Projekt.MDIForm1.DefInstance.DefInstance.Show
		'Für das MDI-Formular im VB6-Projekt war die
		'AutoShowChildren-Eigenschaft auf True gesetzt.
		'Für die Simulation von VB6-Verhalten muss die
		'Form automatisch angezeigt werden, wenn sie
		'geladen wird. Wenn dieses Verhalten unerwünscht
		'ist, löschen Sie die folgende Codezeile.
		'UPGRADE_NOTE: Löschen Sie die nachfolgende Codezeile, um zu verhindern, dass 
' das Formular automatisch angezeigt wird. Klicken Sie hier für weitere 
' Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2018"'
        Me.Show()
	End Sub