#Region "Meldungen im Hintergrund"
 
  'Geburtstage (in den nächsten 14 Tagen) in der Datenbank suchen.
  Private Sub BackgroundWorkerGebu_DoWork(ByVal sender As System.Object, ByVal _
    e As System.ComponentModel.DoWorkEventArgs) Handles _
    BackgroundWorkerGebu.DoWork
    e.Result = Geburtstagssuche()
  End Sub
 
  'Geburtstage (in den nächsten 14 Tagen) melden.
  Private Sub BackgroundWorkerGebu_RunWorkerCompleted(ByVal sender As Object, _
    ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
    BackgroundWorkerGebu.RunWorkerCompleted
    Geburtstagsmeldung(e.Result)
  End Sub
 
#End Region