Dim NL As String = Environment.NewLine
        Dim Titel As String = "Statusmeldung"
 
        Dim aktDatum As Date = Date.Now
        endTime = New Date(aktDatum.Year, aktDatum.Month, aktDatum.Day, 16, 30, _
          0)
 
        Dim nochMinuten As Long
        nochMinuten = DateDiff("n", aktDatum, endTime)
 
        Label_Rest_Arbeitszeit.Text = nochMinuten
        Labelnochhdm.Text = Seconds2Format1(CLng(nochMinuten))
 
        BeginnDateTimePicker.Value = Format(aktDatum, "dd.MM.yyyy HH:mm:ss")
        EndeDateTimePicker.Value = BeginnDateTimePicker.Value.AddMinutes(20)
 
 
 
        '--als Beispiel, naher können es auch 30, 40 oder 
        '(Aufgabenminuten) werden
        Dim iRestzeit As Integer = 0
        iRestzeit = nochMinuten
 
        Dim ergebnis As Integer
        ergebnis = nochMinuten - 20
 
        Dim Meldung As String = String.Concat(NL, "Du hast noch,", NL, _
                                                   ergebnis & " Minuten zur" & _
                                                   "Verfügung,", NL, _
                                                  "dann ist Feierabend!")
 
        MessageBox.Show(Meldung, Titel, MessageBoxButtons.OK, _
          MessageBoxIcon.Information)