Serialisierung der Klasse VObject

Vector.VObject.Serialize.vb

    Overridable Function Serialize() As String()
      Dim data(18) As String
      data(1) = Me.GetType.Name
      data(2) = bounds.X
      data(3) = bounds.Y
      data(4) = bounds.Width
      data(5) = bounds.Height
      data(6) = ZIndex
      data(7) = name
      data(8) = created
      If borderPen IsNot Nothing Then
        data(9) = borderPen.Width
        data(10) = Helper.Color2String(borderPen.Color)
      End If
      data(11) = "V2" 'reserve
      data(12) = rotation
      data(13) = borderPen.DashStyle 'reserve
      data(14) = "" 'reserve
      data(15) = "" 'reserve
      data(16) = "" 'reserve
      data(17) = "" 'reserve
      data(18) = "" 'reserve
      Return data
    End Function