ya me di cuenta es por usar el Custom en la fecha, mira reemplaza en Load(), la siguiente por esta:
Código vb:
Ver originalPrivate Sub Form_Load()
With DTPicker1
.Format = dtpShortDate
'.CustomFormat = "dd/mm/yyyy"
'.UpDown = True
.Value = Now
End With
With DTPicker2
.Format = dtpCustom
.CustomFormat = "HH:mm:ss"
.UpDown = True
.Value = Now
End With
End Sub