Private Sub DateTimePicker1_ValueChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles DateTimePicker1.ValueChanged
        If DateTime.DaysInMonth(DateTimePicker1.Value.Year, _
        DateTimePicker1.Value.Month) = DateTimePicker1.Value.Day Then
            MsgBox("Heute ist der letzte")
        End If
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus