Imports Infragistics.Controls.Layouts
...
Dim normTileConstraints As New TileConstraints With _
{.PreferredWidth = 300, .PreferredHeight = 300, .MinHeight = 200, .MinWidth = 200, MaxHeight = 400, .MaxWidth = 400}
Dim minTileConstraints As New TileConstraints With _
{.MaxHeight = 100, .MaxWidth = 100}
Dim minExpTileConstraints As New TileConstraints With _
{.MaxHeight = 200, .MaxWidth = 100}
If Me.xamTileManager.MaximizedModeSettings Is Nothing Then
Me.xamTileManager1.MaximizedModeSettings = New MaximizedModeSettings()
End If
If Me.xamTileManager1.NormalModeSettings Is Nothing Then
Me.xamTileManager1.NormalModeSettings = New NormalModeSettings()
End If
Me.xamTileManager1.NormalModeSettings.TileConstraints = _
normTileConstraints
Me.xamTileManager1.MaximizedModeSettings.MinimizedTileConstraints = _
minTileConstraints
Me.xamTileManager1.MaximizedModeSettings.MinimizedExpandedTileConstraints = _
minExpTileConstraints
...