'新しいタイルを作成して UltraTilePanel.Tiles コレクションに追加します Dim tile1 As New Infragistics.Win.Misc.UltraTile() tile1.BackColor = Color.PaleTurquoise tile1.Name = "Tile1" Me.ultraTilePanel1.Tiles.Add(tile1) ' タイルに UltraPanel コンテナ コントロールを配置します tile1.Control = Me.ultraPanel1 Me.ultraPanel1.AutoScroll = True ' コントロールを ultraPanel コンテナ コントロールに追加します Me.ultraPanel1.ClientArea.Controls.Add(Me.ultraDayView1) Me.ultraPanel1.ClientArea.Controls.Add(Me.ultraWeekView1)