Public Class Main_Menu
    Private Sub Button_Individual_Click(sender As Object, e As EventArgs) Handles Button_Individual.Click
        If AppForm.fillMode = True Then
            Individual.Panel_Data.Controls.RemoveByKey("Label_Max_Load")
            RemoveHandler Individual.Panel_Data.Controls("TextBox_Max_Load").KeyPress, AddressOf Individual.TextBox_Max_Load_KeyPress
            Individual.Panel_Data.Controls.RemoveByKey("TextBox_Max_Load")
            Individual.Panel_Data.Controls.RemoveByKey("Label_Max_Load_Unit")
            RemoveHandler Individual.Panel_Data.Controls("Button_Calculate").Click, AddressOf Individual.Button_Calculate_Click
            Individual.Panel_Data.Controls.RemoveByKey("Button_Calculate")
        End If
        AppForm.fillMode = False
        AppForm.Panel_Start.Controls.Clear()
        Individual.TopLevel = False
        AppForm.Panel_Start.Controls.Add(Individual)
        Individual.Load_GUI()
        Individual.Show()
    End Sub

    Private Sub Button_Multiple_Click(sender As Object, e As EventArgs) Handles Button_Multiple.Click
        AppForm.fillMode = True
        AppForm.Panel_Start.Controls.Clear()
        Individual.TopLevel = False
        AppForm.Panel_Start.Controls.Add(Individual)
        Individual.Load_GUI()
        Individual.Show()
    End Sub

    ' ---------------------------------- Settings ----------------------------------
    ' --- Settings button clicked ---
    Private Sub Button_Settings_Click(sender As Object, e As EventArgs) Handles Button_Settings.Click
        Settings.ButtonClicked(sender, e)
    End Sub


End Class