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