For anyone interested in this, I just did the following.
VB Code:
  1. Calendar1.SelectedDate = dtedate
  2. Calendar1.TodaysDate = dtedate