Не получается сериализация класса

[mad_Max]

Первую строчку в коде сериализации заменить на

Код: Выделить всё

        Dim ExtraTypes() As Type = {GetType(ControlBody.ControlItem)}
        Dim XS01 As New XmlSerializer(GetType(ControlBody), ExtraTypes)

[tyomitch]

Наверное, надо какой-нибудь атрибут навесить, наподобие XmlElementAttribute