Public Class CLos
    Shared sName As String
    Shared bGeoeffnet As Boolean
    Shared Titel() As CTitel
    Shared Temp_Titel As New CTitel
 
    Property m_Name() As String
        Get
            m_Name = sName
        End Get
        Set(ByVal Value As String)
            sName = Value
        End Set
    End Property
 
    Property m_bGeoeffnet() As Boolean
        Get
            m_bGeoeffnet = bGeoeffnet
        End Get
        Set(ByVal Value As Boolean)
            bGeoeffnet = Value
        End Set
    End Property
 
    Public Sub TempTitel_Initialize()
        Temp_Titel = Nothing
 
    End Sub
 
    Public Function TempTitel_Set() As CTitel
        Temp_Titel = TempTitel_Set
 
    End Function
 
    Public Sub Titel_AddTempToTitel()
        If IsArray(Titel) = False Then
            ReDim Titel(0)
            Titel(0) = Temp_Titel
        Else
            Dim IndexA As Long
            IndexA = Titel.Length
            ReDim Preserve Titel(IndexA)
            Titel(IndexA) = Temp_Titel
        End If
 
    End Sub
 
    Public Function Titel_Set(ByVal lIndex As Long) As CTitel
        Titel(lIndex) = Titel_Set
 
    End Function
 
    Public Function Titel_Get(ByVal IndexA As Long) As CTitel
        If IsArray(Titel) = False Then Exit Function
        If IsArrayItem(Titel, IndexA) = False Then Exit Function
        Titel_Get = Titel(IndexA)
 
    End Function
 
    Public Sub Titel_Remove(ByVal IndexA As Long)
        If IsArray(Titel) = False Then Exit Sub
        If IsArrayItem(Titel, IndexA) = False Then Exit Sub
        KillArrayEintrag(Titel, IndexA)
 
    End Sub
 
    Public Function Titel_Count() As Long
        If IsArray(Titel) = False Then
            Titel_Count = 0
            Exit Function
        End If
        Titel_Count = Me.Titel.Length
 
    End Function
 
    Public Function WriteInXML(ByRef XMLStruk As System.Xml.XmlTextWriter) As _
      Boolean
        WriteInXML = True
        Dim For_e As Long
        Try
            XMLStruk.WriteStartElement("LOS")
            XMLStruk.WriteAttributeString("name", sName)
            XMLStruk.WriteAttributeString("geoeffnet", CLng(bGeoeffnet))
            If IsArray(Titel) = True Then
                For For_e = 0 To Titel.Length - 1
                    If Titel(For_e).WriteInXML(XMLStruk) = False Then
                        WriteInXML = False
                        Exit Function
                    End If
                Next
            End If
            XMLStruk.WriteEndElement()
        Catch
            WriteInXML = False
            Exit Function
        End Try
 
    End Function
 
    Public Sub AddSample())
        Me.TempTitel_Initialize()
        Me.TempTitel_Set.m_bGeoeffnet = True
        Me.TempTitel_Set.m_Name = "Sample Titel"
        Me.TempTitel_Set.AddSample()
        Me.Titel_AddTempToTitel()
 
    End Sub
End Class