Public Shared Sub WriteToFile(ByVal path As String, _
ByVal array As Point())
Dim fileStr As FileStream = New FileStream(path, FileMode.Create)
Dim binWriter As BinaryWriter = New BinaryWriter(fileStr)
' Anzahl der Punkte in die Datei schreiben
binWriter.Write(array.Length)
' die Point-Daten in die Datei schreiben
Dim i As Integer
For i = 0 To array.Length – 1
binWriter.Write(array(i).XPos)
binWriter.Write(array(i).YPos)
binWriter.Write(array(i).Color)
Next
binWriter.Close()
End Sub