Public Class frmProjektEnde
 
    'Eingangsdatum und Uhrzeit der Anfrage
    Dim lblEingang As New Label With _
        {.Parent = Me, .Width = 200, .Text = "Abfrageeingang: "}
 
    Dim WithEvents dtpEingangsDatum As New DateTimePicker With _
        {.Parent = Me, .Top = 40, .Width = 200, .Value = CDate(Now)}
 
    Dim WithEvents dtpEingangsUhrzeit As New DateTimePicker With _
          {.Parent = Me, .Top = 80, _
           .Width = 200, .Format = DateTimePickerFormat.Time}
 
    'Dauer des Projekts (in Arbeitstagen)
    Dim lblDauer As New Label With _
        {.Parent = Me, .Width = 100, .Left = 350, .Top = 40, .Text = _
        "Projekt-Dauer: "}
 
    Dim WithEvents txtDauer As New TextBox With _
        {.Parent = Me, .Width = 100, .Left = 450, .Top = 40, .Text = "3"}
 
    Dim lblExDauer As New Label With _
        {.Parent = Me, .Width = 100, .Left = 350, .Top = 80, .Text = _
        "Zusatz-Tage: "}
 
    Dim WithEvents txtExDauer As New TextBox With _
        {.Parent = Me, .Width = 100, .Left = 450, .Top = 80, .Text = "2"}
 
    'Schluß-Uhrzeit für Projektstart am gleichen Tag
    Dim lblSchlußzeit As New Label With _
       {.Parent = Me, .Width = 100, .Left = 350, .Text = "Redaktionsschluß: "}
 
    Dim WithEvents txtSchlußzeit As New MaskedTextBox With _
        {.Parent = Me, .Width = 100, .Left = 450, .Mask = "00:00", .Text = _
        "1000"}
 
    'Berechnungsbutton
    Dim WithEvents btnCompute As New Button With _
        {.Parent = Me, .Top = 120, _
        .Width = 200, .Text = "Berechne Datum Projektende"}
 
    'Anzeige des Ergebnisses
    Dim lblProjektEnde As New Label With _
        {.Parent = Me, .Top = 120, .Left = 350, _
        .Width = 300, .Height = 50, .Text = "", .BackColor = Color.LightGray}
 
    'Liste der arbeitsfreien Tage
    Private lstFreierTag As New List(Of Date)
 
    '(Fortsetzung folgt)