Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles _
   Button2.Click
        For Each rwKontakt In ListenDB.Geburtstagsliste
            Dim NL As String = Environment.NewLine
            ''-----------------------------------------------------------------_
              ---------
            Dim nextBirthday = GetNextBirthDay(rwKontakt.Geburtstag)
            Dim xx = DateTime.Now
            Dim heute As DateTime = New DateTime(xx.Year, xx.Month, xx.Day)   ' 
            ' Datum ohne Zeit
            Dim geburtstagskind As DateTime = New DateTime(heute.Year, _
              nextBirthday.Month, nextBirthday.Day)  ' das selbe Jahr
 
            Select Case (geburtstagskind.Subtract(heute).Days)
                Case 0 : MessageBox.Show("Heute hat, " & rwKontakt.Vorname & "," & _
                  "" & rwKontakt.Nachname & NL _
                         & "Geburtstag", "Info!", MessageBoxButtons.OK, _
                         MessageBoxIcon.Information)
                Case 1 : MessageBox.Show("Morgen hat, " & rwKontakt.Vorname & _
                ", " & rwKontakt.Nachname & NL _
                         & "Geburtstag", "Info!", MessageBoxButtons.OK, _
                         MessageBoxIcon.Information)
                Case 2 : MessageBox.Show("Übermorgen hat, " & rwKontakt.Vorname _
                & ", " & rwKontakt.Nachname & NL _
                         & "Geburtstag", "Info!", MessageBoxButtons.OK, _
                         MessageBoxIcon.Information)
            End Select
 
        Next
 
    End Sub