Public Class Fenster1
    Private m_Bezeichung(10) As String
    Private m_Aktiv(10) As Boolean
    Private m_bescheint(10) As Boolean
    Private mm_Punkt As New ArrayList
    Private mm_point As New ArrayList
    Private m_Bild(10) As String
 
    Sub New()
        For i As Integer = 0 To 9
            mm_Punkt.Add(New ArrayList)
            mm_point.Add(New ArrayList)
        Next
    End Sub
    Public Property Bezeichung(ByVal index As Single) As String
        Get
            Return m_Bezeichung(index)
        End Get
        Set(ByVal Value As String)
            m_Bezeichung(index) = Value
        End Set
    End Property
 
    Public Property Aktiv(ByVal index As Single) As Boolean
        Get
            Return m_Aktiv(index)
        End Get
        Set(ByVal Value As Boolean)
            m_Aktiv(index) = Value
        End Set
    End Property
    Public Property Bescheint(ByVal index As Single) As Boolean
        Get
            Return m_bescheint(index)
        End Get
        Set(ByVal Value As Boolean)
            m_bescheint(index) = Value
        End Set
    End Property
    Public Property Punkt(ByVal index As Integer) As ArrayList
        Get
            Return CType(mm_Punkt.Item(index), ArrayList)
 
        End Get
 
        Set(ByVal Value As ArrayList)
 
            mm_Punkt.Item(index) = Value
        End Set
    End Property
    Public Property Point(ByVal index As Integer) As ArrayList
        Get
            Return CType(mm_point.Item(index), ArrayList)
        End Get
 
        Set(ByVal Value As ArrayList)
 
            mm_point.Item(index) = Value
        End Set
    End Property
    Public Property Bild(ByVal index As Single) As String
        Get
            Return m_Bild(index)
        End Get
        Set(ByVal Value As String)
            m_Bild(index) = Value
        End Set
    End Property
End Class