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