Sub Class_Globals
Dim Topics As List
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
Topics.Initialize
End Sub
Public Sub Save()
Dim raf As RandomAccessFile
raf.Initialize(Utils.thePath, "Data.txt", False)
raf.WriteObject(Topics, True, raf.CurrentPosition)
raf.Close
End Sub
Public Sub Load()
Dim raf As RandomAccessFile
raf.Initialize(Utils.thePath, "Data.txt", True)
Topics=raf.ReadObject(raf.CurrentPosition)
raf.Close
End Sub