ActiveX Date Picker Issue

[Waldi]

I have a form where I am using ActiveX Date and Time Picker to select value Date1 and then selecting value for Date2 using Date Picker . I would like to default date to to be equal to Date1. I was trying to use GotFocus property however, this seems to not work as it indicates that the object does not support this property or method. Is there another way to do this or perhaps selecting date without using ActiveX date and time picker?
thanks for suggestions.


Private Sub TermEnd_GotFocus()
Me.Dat2= Me.Date1
End Sub