Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Try
Dim stream As New FileStream("C:\\Layout.bin", FileMode.Open)
If (Not stream Is Nothing) Then
stream.Seek(0, SeekOrigin.Begin)
Me.UltraCalendarLook1.Load(stream, CalendarLookCategories.All)
stream.Close()
End If
Catch
Debug.WriteLine("Error encountered while loading stream!")
End Try
End Sub