Invalid Resx File

​<Serializable>
Public Class clsFile
Public Property [Elements] As New List(Of FileComponents.Element)
Public Property [Lines] As New List(Of FileComponents.Line)
Public Property [Filling] As New FileComponents.Specific.Filling

Sub New()

End Sub
End Class

Namespace FileComponents

<Serializable>
Public Class Element
Public Property [Location] As New Point(0, 0)
Public Property [Size] As New Size(100, 50)

End Class

<Serializable>
Public Class Form
Inherits Element

Public Property [Filling] As New FileComponents.Specific.Filling
Public Property [Border] As New FileComponents.Specific.Border
End Class

<Serializable>
Public Class Line
Public Property [Point1] As Point
Public Property [Point2] As Point
Public Property [Ctl1] As Control
Public Property [Ctl2] As Control
Public Property [Style] As FileComponents.Specific.LineStyle = FileComponents.Specific.LineStyle.Straight
Public Property [Pen] As New Pen(Color.Black)

Sub New()
End Sub
Sub New(ByVal Point1 As Point, ByVal Point2 As Point)
Me.Point1 = Point1
Me.Point2 = Point2
End Sub
Sub New(ByVal Ctl1 As Control, ByVal Ctl2 As Control)
Me.Ctl1 = Ctl1
Me.Ctl2 = Ctl2
End Sub

Public Sub Draw(ByVal Graphics As Graphics)
With Graphics
If Ctl1 IsNot Nothing AndAlso Ctl2 IsNot Nothing Then
.DrawLine(Pen, Point1, Point2)
Else
.DrawLine(Pen, FindCenter(Ctl1), FindCenter(Ctl2))
End If
End With
End Sub
End Class

Namespace Specific

Public Enum LineStyle
Straight = 0
Curved = 1
End Enum

<Serializable>
Public Class Filling

Public Property [Brush] As Brush = New SolidBrush(Color.White)

Public Property [Image] As FileComponents.Specific.Image = Nothing

Public Sub Draw(ByVal Graphics As Graphics, ByVal Rec As Rectangle)
With Graphics
If Image Is Nothing Then
.FillRectangle(Brush, Rec)
End If
End With
End Sub
End Class

<Serializable>
Public Class Border

End Class

<Serializable>
Public Class Image

End Class
End Namespace

End Namespace

​Public Class clsEditorPanel
Inherits Panel

Public Property [File] As clsFile = New clsFile

Sub New()
File = New clsFile
End Sub

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Me.File.Elements.Add(New FileComponents.Element)
Me.File.Lines.Add(New FileComponents.Line(New Point(10, 10), New Point(20, 20)))
With e.Graphics

End With
End Sub

End Class