Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button22.Click
Try
Dim stream As New FileStream("C:\\Layout.xml", FileMode.OpenOrCreate)
stream.Seek(0, SeekOrigin.Begin)
Try
Me.ultraExplorerBar1.SaveAsXml(stream)
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