Imports System.IO
Imports System.Text
Public Class Form1
    Public WithEvents Faelle_Gewoehnlich As New TextBox
    Public WithEvents Aura_Soma As New ListBox
    Public WithEvents ProLogisches_Astrobrot As New Button
    Public WithEvents BohrMaschinenPflaster As New Label
    Public Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.Controls.AddRange({Faelle_Gewoehnlich, Aura_Soma, ProLogisches_Astrobrot, BohrMaschinenPflaster})
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        Conventions(Faelle_Gewoehnlich)
        Kalender_Farben(Aura_Soma)
        UnExpected(Aura_Soma)
        KnaXX_KnobelN(ProLogisches_Astrobrot)
        PuzzleStein(BohrMaschinenPflaster)
    End Sub

    Public TrollArmy As New MyTextStringIntegration
    Public startIndex As Integer = 87
    Public length As Integer = 13
    Public StringTheorie As String = TrollArmy.ContextFile.ReadToEnd
    Public SelectionTheorie As String =
        StringTheorie.Substring(startIndex, length)
    Public index As Integer = StringTheorie.IndexOf(SelectionTheorie)
    Public Farbtheorien As New StringBuilder(StringTheorie)
    Public WordChar As String = String.Format("{0}", StringTheorie)
    Public Sub Conventions(WordBoxx As TextBox)
        With WordBoxx
            .Location = New Point(350, 50)
            .Size = New Size(150, 300)
            .Multiline = True
            .Text = String.Format("{0}{1}", StringTheorie.Substring(startIndex, length),
                                  Environment.NewLine, index)
            .SelectionStart = 2
            .SelectionLength = 4
        End With
    End Sub
    Public dinosaurs As New List(Of String)
    Public TauZiehen, PovidlMohn As String
    Public Sub Kalender_Farben(Sehr_Bunt As ListBox)
        With Sehr_Bunt
            .Location = New Point(550, 50)
            .Size = New Size(200, 300)
        End With
    End Sub
    Sub UnExpected(Frequenz As ListBox)
        TauZiehen = "OhneEnumFlagAtribute"
        PovidlMohn = "SeGelBu"
        dinosaurs.Add($"{StringTheorie.Substring(startIndex, length)}")
        dinosaurs.Add($"{TauZiehen}")
        dinosaurs.Add($"{PovidlMohn}")
        With Frequenz
            For Each TaoTaoPanda As String In dinosaurs
                .Items.Add(TaoTaoPanda)
            Next
        End With
    End Sub
    Public Sub KnaXX_KnobelN(SalzMargarine As Button)
        With SalzMargarine
            .Location = New Point(550, 350)
            .Size = New Size(200, 100)
            .Text = "Click me"
        End With
    End Sub
    Public ToggleSwitch As Integer
    Public KannIch_BuBi As String = Nothing
    Public Wahr_Gehalt As Boolean = StringTheorie.Contains(SelectionTheorie)
    Private Sub ProLogisches_Astrobrot_Click(sender As Object, e As EventArgs) Handles ProLogisches_Astrobrot.Click
        If Not ToggleSwitch Then
            Aura_Soma.Items.RemoveAt(0)
        Else
            Aura_Soma.Items.Add(InputBox(KannIch_BuBi))
        End If
        If Wahr_Gehalt = True Then
            BohrMaschinenPflaster.Text = $"{Farbtheorien}"
        End If
        ToggleSwitch = Not ToggleSwitch
    End Sub
    Public Sub PuzzleStein(Cerstoer As Label)
        With Cerstoer
            .Location = New Point(50, 50)
            .Size = New Size(250, 300)
            .BackColor = Color.FromArgb(184, 125, 180, 24)
        End With
    End Sub
End Class