mi sa che puoi fare ben poco... questo e' il codice sorgente della proprieta' value dell'oggetto DateBox:
Private Function Value_Read() As Date
Dim vVal As Variant = Val($hButtonBox.Text)
If vVal And If TypeOf(vVal) = gb.Date Then Return vVal
End
Private Sub Value_Write(Value As Date)
If IsNull(Value) Then Value = Now
$hButtonBox.Text = Format(Value, GetDateFormat())
End
secondo me fai prima a copiarti l'intera classe, rinominarla in datebox2, togliere If IsNull(Value) Then Value = Now e cambiare tutti gli oggetti datebox del tuo progetto con quello modificato...
ps
se il tuo oggetto e' un valuebox il discorso non cambia....