Hola!
Aqui esta la solución (las comillas no van, es solo para resaltar las opciones):
• Agrega un DTPicker con el nombre "dtpFecha"
• En sus propiedades, selecciona el formato "3 - dtpCustom"
• En el campo "CustomFormat" le pones este formato: "dd/MM/yyyy | hh:mm:ss tt"
• Le das al boton "OK"
Ahora lo siguiente:
• Agregas este codigo:
Código vb:
Ver originalPrivate Sub dtpFecha_Change()
dtpFecha.Value = Mid(dtpFecha.Value, 1, 11) & Time
End Sub
Private Sub Form_Load()
dtpFecha.Value = Date + Time
End Sub
Eso es todo!! Nos cuentas!!