Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Try
Dim stream As New FileStream("C:\\Layout.bin", FileMode.OpenOrCreate)
stream.Seek(0, SeekOrigin.Begin)
Try
Me.UltraCalendarLook1.Save(stream, CalendarLookCategories.All)
Catch
MessageBox.Show(Me, "Error encountered while saving to stream!", "Save Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
stream.Close()
Catch
Debug.WriteLine("Error encountered while saving stream!")
End Try
End Sub