Public Class Fenster1
    Private m_Bezeichung As String
    Private m_Aktiv As Boolean
    Private m_bescheint As Boolean
    Private m_Punkt As New ArrayList
    Private m_point As New ArrayList
    Private m_Bild As String
 
 
 
    Public Property Bezeichung() As String
        Get
            Return m_Bezeichung
        End Get
        Set(ByVal Value As String)
            m_Bezeichung = Value
        End Set
    End Property
 
    Public Property Aktiv() As Boolean
        Get
            Return m_Aktiv
        End Get
        Set(ByVal Value As Boolean)
            m_Aktiv = Value
        End Set
    End Property
    Public Property Bescheint() As Boolean
        Get
            Return m_bescheint
        End Get
        Set(ByVal Value As Boolean)
            m_bescheint = Value
        End Set
    End Property
    Public Property Punkt() As ArrayList
        Get
            Return m_Punkt
        End Get
        Set(ByVal Value As ArrayList)
            m_Punkt = Value
        End Set
    End Property
    Public Property Point() As ArrayList
        Get
            Return m_point
        End Get
        Set(ByVal Value As ArrayList)
            m_point = Value
        End Set
    End Property
    Public Property Bild() As String
        Get
            Return m_Bild
        End Get
        Set(ByVal Value As String)
            m_Bild = Value
        End Set
    End Property
End Class

Public Class Form1
    Inherits System.Windows.Forms.Form
    Public Shared Zeit As String
     Dim Fenster1 As New Fenster1
    Public Shared Fenster As New ArrayList
 
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
 
        Fenster.Add(Fenster1)