Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
	Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
		' The MdiWindowListTool provides a number of methods for manipulating
		' MDI child windows.  These methods only have meaning when the MdiWindowList
		' tool is defined in an UltraToolbarsManager component that resides on a
		' form which has its IsMdiContainer property set to true.
		If Me.UltraToolbarsManager1.Tools.Exists("MyMdiWindwListTool") AndAlso _
		   Me.UltraToolbarsManager1.Tools("MyMdiWindwListTool").GetType() Is GetType(MdiWindowListTool) Then
			' Get a reference an mdi Window list tool
			Dim mdiWindowList As MdiWindowListTool = Me.UltraToolbarsManager1.Tools("MyMdiWindwListTool")
			' Call the ArrangeIcons method to arrange the MDI child windows when they
			' are being displayed as icons.
			mdiWindowList.ArrangeIcons()
			' Call the CascadeWindows method to arrange the MDI child windows in a
			' cascading fashion.
			mdiWindowList.CascadeWindows()
			' Call the CloseAllWindows method to close all currently open MDI child
			' windows.
			mdiWindowList.CloseAllWindows()
			' Call the MinimizeAllWindows method to minimize all currently open MDI child
			' windows.
			mdiWindowList.MinimizeAllWindows()
			' Call the RefreshWindowList method to refresh the contents of the window
			' list.
			mdiWindowList.RefreshWindowList()
			' Call the TileWindowsHorizontally method to tile all currently open MDI child
			' windows horizontally.
			mdiWindowList.TileWindowsHorizontally()
			' Call the TileWindowsVertically method to tile all currently open MDI child
			' windows vertically.
			mdiWindowList.TileWindowsVertically()
		End If
	End Sub