'Labels
    Dim lblStart As New Label With _
        {.Parent = Me, .Width = 200, .Text = "Projekteingang: "}
 
    Dim WithEvents dtpStart As New DateTimePicker With _
        {.Parent = Me, .Top = 40, _
        .Width = 200, .Value = CDate(Now)}
 
    'Berechnungsbutton
    Dim WithEvents btnCompute As New Button With _
        {.Parent = Me, .Top = 100, _
        .Width = 200, .Text = "Projektdauer 3-4 Werktage"}
 
    'Anzeige des Ergebnisses
    Dim lblWerktage As New Label With _
        {.Parent = Me, .Top = 100, .Left = 250, _
        .Width = 200, .Text = "", .BackColor = Color.LightGray}
 
 
    Private Sub btnCompute_Click(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles btnCompute.Click
 
 
        Dim dt As Date = DateValue(dtpStart.Value.ToString).AddDays(1)
        Dim c As Integer
 
 
            Dim wochentag As Integer = Microsoft.VisualBasic.Weekday(dt)
            'Unter Annahme: 1 = Sonntag, 7 = Samstag
            If wochentag > 1 And wochentag < 7 Then
            c += 1
            End If
        dt = dt.AddDays(1)
 
 
        lblWerktage.Text = "Projektende: " & CStr(dt)
    End Sub
 
    Private Sub dtp_ValueChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) _
        Handles dtpStart.ValueChanged
        lblWerktage.Text = ""
    End Sub