Private Sub BS_Notizen_ListChanged(sender As Object, e As _
    System.ComponentModel.ListChangedEventArgs) _
        Handles BS_Notizen.ListChanged
        If BS_Notizen_Liste.Count = 0 Then Return
 
        Dim gesamtdauer As Integer = BS_Notizen_Liste.Sum(Function(f) _
          f.ToDoDauer)
        Dim ts As New TimeSpan(0, 0, gesamtdauer)
 
        lbl_Minuten.Text = String.Concat(gesamtdauer & " [Min]").ToString
        lbl_gesamt_Dauer.Text = String.Format("{1:00}.{2:00}:{3:00}", ts.Days, _
          ts.Hours, ts.Minutes, ts.Seconds)
        'noch Verfügbare Tagesrestzeit
        lbl_aktuelle_Restzeit.Text = iBasiszeit - gesamtdauer
 
        Anzahl_Ereignisse(StartDatum:=New Date(Today.Year, Today.Month, _
          Today.Day, 5, 59, 59, 999), _
                              EndDatum:=New Date(Today.Year, Today.Month, _
                              Today.Day, 23, 59, 59, 999))
    End Sub

  Private Sub Anzahl_Ereignisse(ByVal StartDatum As Date, ByVal EndDatum As _
    Date)
        Dim von_Datum = Today.AddDays(0)
 
        If Me.AblageDB.Notizen.Rows.Count = 0 Then Return
        ' Abfrage
        Dim AbfrageG As System.Data.EnumerableRowCollection(Of NotizenRow)
        AbfrageG = From Reihe In Me.AblageDB.Notizen
                   Where Reihe.RowState <> DataRowState.Deleted AndAlso _
                     Reihe.IsToDoBeginnNull = False AndAlso _
                   Reihe.ToDoBeginn >= von_Datum _
     Select Reihe
        Dim anzahlDatensaetze As Integer = AbfrageG.Count
        If anzahlDatensaetze <> 1 Then
            lbl_aktuelle_Ereignissanzahl.Text = String.Concat( _
              anzahlDatensaetze.ToString & " Aktuelle Aufgaben")
 
        Else
            lbl_aktuelle_Ereignissanzahl.Text = String.Concat( _
              anzahlDatensaetze.ToString & " Aktuelle Aufgabe")
 
        End If
    End Sub