deberias explicarte un poco mas, que no me entere a lo que te refieres

saludos...

YA LO SOULICONES ERA CON UN DATA PIKER

pues esta facil mi chavo primero tienes que hacer un timer a ese timer le tienes que dar un intervalo de riempo de 1000 despues dentro del timer poner
text1 = Format(Now, "hh:mm:ss") // este nos muestra la hora
text2 = Format(Now, "dd/mm/yyyy") // este nos muestra la fecha
 como su nombre lo dice el text1 y el text2 son cuadros de texto en los que se muestran los datos ya si quieres hacerlo en un boton pues pones el mismo codigo en el boton y lo mandas a un msgbox

Pues aer, no es necesario poner el timer para la fecha, se puede usar solo para la hora...
algo asi:

private sub form_load()
text1.text = format(date, "dd/mm/yyyy")
end sub
 
private sub timer1_timer()
text2.text = format(time,"hh:mm:ss AMPM")
end sub
 

Uso el AMPM para que muestre si es a.m o p.m, pero depende de la configuracion regional de windows
format(time) y format(date), porque me parece que gasta menos memoria, ya que al hacer format(now), estas cogiendo una cadena de este tipo "03/10/2007 03:57:39 p.m.", mientras que con time se muestra solo "03:57:39 p.m." y con date "03/10/2007".

Bueno, saludos

iwal, solo podias poner..

Label1 = format(now,"hh:mm:ss")

Y ps, esta listo..

iwal funciona "Now" como "Time".

Salu2