Public Class Form1
    'Variable
    Dim AktuellesDatum As Date
    Dim Ablaufdatum As Date
    Dim idays As Integer
    'Aktionen
    Private Sub DateTimePicker1_CloseUp(sender As Object, e As EventArgs) _
      Handles DateTimePicker1.CloseUp
        Dim idays As Integer = nudidays.Value
        TextBoxaktuellesDatum.Text = DateTimePicker1.Value.ToShortDateString
        TextBoxablaufdatum.Text = DateAdd("d", idays, CDate( _
          TextBoxaktuellesDatum.Text))
 
        Auswertung()
    End Sub
    'Load
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        fillCombo()
        'nur zum testen
        TextBoxaktuellesDatum.Text = Format(Now, "dd.MM.yyyy")
        TextBoxablaufdatum.Text = DateAdd("d", nudidays.Value, CDate( _
          TextBoxaktuellesDatum.Text))
        cboIntervall.SelectedIndex = 0
 
        Auswertung()
    End Sub
    'fill Combo
    Private Sub fillCombo()
        With cboIntervall
            .Items.Add("täglich")
            .Items.Add("wöchentlich")
            .Items.Add("alle 2 Wochen")
            .Items.Add("monatlich")
            .Items.Add("halbjährlich")
            .Items.Add("jährlich")
        End With
    End Sub
    'Intervall Art 
    ' ---------------------------------------------------------------------
    Private Sub cboIntervall_SelectedIndexChanged(sender As Object, e As _
      EventArgs) Handles cboIntervall.SelectedIndexChanged
        Select Case cboIntervall.SelectedIndex
            Case 0 'täglich
                nudidays.Value = 1
            Case 1 'wöchtlich
                nudidays.Value = 7
            Case 2 'alle 2 wochen
                nudidays.Value = 14
            Case 3 'monatlich
                nudidays.Value = 30
            Case 4 'halbjährlich
                nudidays.Value = 182
            Case 5 'jährlich
                nudidays.Value = 365
            Case Else 'Alle anderen Items
 
        End Select
    End Sub
    'Intervall Art 
    ' ---------------------------------------------------------------------
    'Value Changed
    Private Sub nudidays_ValueChanged(sender As Object, e As EventArgs) Handles _
      nudidays.ValueChanged
        TextBoxaktuellesDatum.Text = DateAdd("d", nudidays.Value, CDate( _
        TextBoxablaufdatum.Text))
 
        Auswertung()
    End Sub
 
    'differenz berechnen
    Private Sub Auswertung()
        AktuellesDatum = CDate(TextBoxaktuellesDatum.Text)
        Ablaufdatum = CDate(TextBoxablaufdatum.Text)
        'differenz berechnen 
        Dim differenz As Integer = DateDiff(DateInterval.Day, AktuellesDatum, _
          Ablaufdatum)
        'Datum vergleichen < >
        If Ablaufdatum < AktuellesDatum Then
            LabelErgebnis.Text = "abgelaufen"
        ElseIf Ablaufdatum > AktuellesDatum Then
            LabelErgebnis.Text = "Prüfung in " & differenz & " Tagen"
        ElseIf Ablaufdatum = Ablaufdatum Then
            LabelErgebnis.Text = "Prüfung"
        End If
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Me.Close()
    End Sub
 
End Class