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
' 新しいメモリ ストリームを作成します
Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream()
' UltraCalendarInfo オブジェクトの状態をメモリ ストリームに保存します
Me.ultraCalendarInfo1.SaveAsXml(stream, CalendarInfoCategories.All)
' UltraCalendarInfo オブジェクトの新しいインスタンスを作成します
Dim calendarInfo As UltraCalendarInfo = New UltraCalendarInfo()
' データを読み込む前にストリームの位置をリセットします
stream.Position = 0
' 保存した UltraCalendarInfo オブジェクトの状態を新しいオブジェクトに読み込みます
calendarInfo.LoadFromXml(stream, CalendarInfoCategories.All)
End Sub