The following sample shows how to apply Strikeout font attribute to "today" date:
Calendar1.Events.Add(Date).StrikeOut = True