Perhaps something like
Private Sub DTPicker1_Change()
Calendar1.Value = DTPicker1.Value
End Sub