Private Sub SettingsSave(ByVal filename As String, ByVal MyArray As Array)
    Dim data As System.IO.Stream = System.IO.File.Create(filename)
    Dim ser As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
    ser.Serialize(data, MyArray)
    data.Close()
  End Sub
 
  Private Function SettingsRead(ByVal filename As String) As Array
    Dim b As Array
    Dim data As System.IO.Stream = System.IO.File.OpenRead(filename)
    Dim ser As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
    b = CType(ser.Deserialize(data), Array)
    data.Close()
    Return b
  End Function