Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim frm2 As New Form2
        With frm2
            .Dock = DockStyle.Fill
            .MaximizeBox = False
            .MinimizeBox = False
            .HelpButton = False
            .ControlBox = False
            .MdiParent = Me
            .Show()
        End With
    End Sub
 
  ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer 
    ' erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        '
        'Form2
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 266)
        Me.Name = "Form2"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
 
    End Sub