Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinDock
Imports System.IO
Private Sub btnSaveLayoutBinary_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveLayoutBinary.Click
Dim stream As FileStream = Nothing
Dim fileName As String = Application.CommonAppDataPath & "\dockManager.bin"
Try
stream = New FileStream(fileName, FileMode.Create, FileAccess.ReadWrite)
Me.ultraDockManager1.SaveAsBinary(stream)
Finally
If Not stream Is Nothing Then stream.Close()
End Try
End Sub