vb.net saving arrays

[.paul.]

try this:

Public Sub SaveMap(ByVal aMap As map, ByVal fileName As String)
 
    Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
    Dim fs As New FileStream(fileName, FileMode.Create)
 
    formatter.Serialize(fs, aMap)
 
    fs.Close()
    fs.Dispose()
 
End Sub

to deserialize:

Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
Dim fs As New IO.FileStream(fileName, IO.FileMode.Open)
aMap = DirectCast(formatter.Deserialize(fs), GetType(map))
fs.Close()