Imports Infragistics.Win
Imports Infragistics.Win.UltraWinListView
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ultraListView1.Reset();
If System.IO.File.Exists("UltraListView.xml") Then
Me.ultraListView1.LoadFromXml("UltraListView.xml")
Else
Me.ultraListView1.LoadFromBinary("UltraListView.bin")
End If
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If saveAsXml Then
Me.ultraListView1.SaveAsXml("UltraListView.xml")
Else
Me.ultraListView1.SaveAsBinary("UltraListView.bin")
End If
End Sub