Public Partial Class MainForm
	Public Sub New()
		' The Me.InitializeComponent call is required for Windows Forms designer 
' support.
		Me.InitializeComponent()
 
		'
		' TODO : Add constructor code after InitializeComponents
		'
 
		PrepareChildForms()
	End Sub
 
	Sub PrepareChildForms()
		Dim child1 As ChildForm = New ChildForm() ' Neue Instanz erstellen
		child1.MdiParent = Me ' MdiParent zuweisen
		ToolStripButton1.Tag = child1 ' Als Tag setzen
 
		Dim child2 As ChildForm = New ChildForm() ' Neue Instanz erstellen
		child2.MdiParent = Me' MdiParent zuweisen
		ToolStripButton2.Tag = child2 ' Als Tag setzen
	End Sub
 
	Sub ToolStripButton1Click(ByVal sender As Object, ByVal e As EventArgs)
		' Aus Tag Eigeschaft "extrahieren"
		Dim tmpForm As ChildForm = CType(ToolStripButton1.Tag, ChildForm)
		tmpForm.Show() ' Anzeigen
	End Sub
 
	Sub ToolStripButton2Click(ByVal sender As Object, ByVal e As EventArgs)
		' Aus Tag Eigenschaft "extrahieren"
		Dim tmpForm As ChildForm = CType( ToolStripButton2.Tag, ChildForm)
		tmpForm.Show() ' Anzeigen
	End Sub
End Class