Saving and Loading Data with Serialization -- cooooool

Imports System.Xml.Serialization 
Public Class Settings 
  'or Struct 
  'this is our class that holds all our settings. 
  Public RandomSetting As Integer 
  Public RandomString As String 
  'etc. 
End Class 
  Public Sub SaveSettings(ByRef mypath As String, ByRef mySettings As Settings) 
    Dim XmlS As New XmlSerializer(GetType(Settings)) 
    Dim fStream As New IO.FileStream(mypath, IO.FileMode.Create) 
    XmlS.Serialize(fStream, mySettings) 
    fStream.Close() 
    fStream = Nothing 
    XmlS = Nothing 
  End Sub 
  Public Function LoadSettings(ByRef mypath As String) As Settings 
   Dim XmlS As New XmlSerializer(GetType(Settings)) 
    Dim fStream As New IO.FileStream(mypath, IO.FileMode.Open) 
    Return XmlS.Deserialize(fStream) 
  End Function 
USAGE 
 Dim R as New Settings() 'to save
 Dim S as New Settings() 'to load
 R.RandomSetting = 12 
 R.RandomString = "~)!~~" 
 SaveSettings("C:\mySettings.xml",R) 
 S = LoadSettings("C:\mySettings.xml") 
 Msgbox(S.RandomSetting & " " & S.RandomString)