WinTabbedMdiManager インタフェースを作成

Private Function AddNewForm() As ChildForm
	Dim newForm As New ChildForm()
	Dim prevForm As ChildForm
	Dim numForms As Integer
	Dim newFormNum As Integer
	Dim prevFormIndex As Integer
	' MDI 子フォームの数
	numForms = Me.MdiChildren.GetLength(0)
	newFormNum = numForms + 1
	' 新しいフォームを定義します。
	newForm.Name = "frmButtons" & CStr(newFormNum)
	newForm.Text = "Buttons " & CStr(newFormNum)
	' フォームごとに異なる位置になるように
	' ボタンを配置します。
	If newFormNum > 1 Then
		prevFormIndex = newFormNum - 2
		prevForm = Me.MdiChildren.GetValue(prevFormIndex)
		' ボタンの位置を前のフォームの
		' ボタン位置を基準にして設定します。
		newForm.UltraButton1.Top = _
		prevForm.UltraButton1.Top + prevForm.UltraButton1.Height
	End If
	' 新しいフォームを MDI 親フォームに追加します。
	newForm.MdiParent = Me
	newForm.Show()
	Return newForm
End Function

private ChildForm addNewForm()
{
	ChildForm newForm = new ChildForm();
	ChildForm prevForm = null;
	int numForms;
	int newFormNum;
	int prevFormIndex;
	// MDI 子フォームの数
	numForms = this.MdiChildren.GetLength(0);
	newFormNum = numForms + 1;
	// 新しいフォームを定義します。
	newForm.Name = "frmButtons" + newFormNum.ToString();
	newForm.Text = "Buttons " + newFormNum.ToString();
	// フォームごとに異なる位置になるように
	// ボタンを配置します。
	if (newFormNum > 1)
	{
		prevFormIndex = newFormNum - 2;
		prevForm = (ChildForm)this.MdiChildren.GetValue(prevFormIndex);
		// ボタンの位置を前のフォームの
		// ボタン位置を基準にして設定します。
		newForm.ultraButton1.Top =
		  prevForm.ultraButton1.Top + prevForm.ultraButton1.Height;
	}
	// 新しいフォームを MDI 親フォームに追加します。
	newForm.MdiParent = this;
	newForm.Show();
	return newForm;
}

Private Sub UltraButton1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles UltraButton1.Click
	Me.AddNewForm()
End Sub

private void ultraButton1_Click(object sender, EventArgs e)
{
	this.addNewForm();
}