Private Sub Zeitlimitanzeige_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Wochentage()
        Sprache()
        CheckBox()
        Form2.Show()
        Form2.Visible = False
        Datum.Text = Now.Date
        Tag.Text = Day
        Uhr.Text = (Now.Hour & ":" & Now.Minute)
        Timer2.Enabled = True
        Zeitraum_und_Spielzeit()
        ms.Text = Timer
        Spielzeit.Text = (Hour(Spielzeit.Text) & ":" & Minute(Spielzeit.Text))
    End Sub