Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.IO
Imports System.Globalization
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
' 簡単に参照するために、キーの引数を含むオーバーロードを使用すると、
' 新しい Appearance オブジェクトを作成します
Dim appearance As Infragistics.Win.Appearance = New Infragistics.Win.Appearance("ShadesOfBlue")
' 色プロパティのいくつかを設定します
appearance.BackColor = Color.FromArgb(208, 225, 244)
appearance.BackColor2 = Color.FromArgb(132, 163, 201)
appearance.ForeColor = Color.FromArgb(0, 48, 156)
appearance.BorderColor = Color.White
' 新しく作成した外観を Appearances コレクションに追加します
Me.ultraCalendarInfo1.Appearances.Add(appearance)
End Sub