Imports System.IO
Public Class Form1
    Public StringTheorie() As String = File.ReadAllLines("C:\GripInseln.txt")
    Public Dinosauers As New List(Of String)
    ReadOnly RadHeft As New ListBox
    ReadOnly LabelRectangle As New Label

    ReadOnly MeAsStudent As New KuhStab ' With {.NewProperty = MeAsStudent.NewProperty}

    Public Sub New()
        With RadHeft
            .Location = New Point(50, 50)
            .Size = New Size(250, 250)
            .Font = New Font("Libre Baskerville", 28)
            .DataSource = StringTheorie
        End With

        With LabelRectangle
            .Location = New Point(350, 50)
            .Size = New Size(250, 250)
            .BackColor = Color.Gold
            .DataBindings.Add("Text", StringTheorie, "")
        End With

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.Controls.AddRange({RadHeft, LabelRectangle, MeAsStudent})
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

        With Me
            .Size = New Size(800, 800)
        End With

        Dim RectangleValue As New Rectangle(50, 50, 50, 50)
        With MeAsStudent
            .Location = New Point(50, 400)
            .Size = New Size(250, 250)
            .BackColor = Color.Coral
            .NewProperty.FillRectangle(Brushes.Red, RectangleValue)
        End With
    End Sub
End Class