<Serializable()> Structure TPunkt
        Public x As Short
        Public y As Short
        Public farbe As Color   ' long für rgb farben...
        Public modus As Byte    ' Punkt, Linie, etc...
    End Structure
 
    <Serializable()> Structure TFrame
        Public Punkt() As TPunkt
    End Structure
 
    <Serializable()> Structure TFigur
        Public Frame() As TFrame
 
    End Structure
 
    Public Hauptfigur() As TFigur