HORA ATUAL

USUARIO.EXCLUIDOS 23/03/2005 23:13:23
#74596

textbox1.text = time

MOACIRPFAU 23/03/2005 23:28:55
#74598 Resposta escolhida

Eu faria assim.

Text1.Text = Format(Time, "HH:MM:SS")

WEBMASTER 24/03/2005 01:15:40
#74613

Se quiseres apenas a hora, basta Text1.Text = Format(Time, "hh:mm:ss")

Porém se quiseres um relógio...

No evento de um Timer com interval = 1000 (1 segundo)

Private Sub Timer_Timer()
Text1.Text = Format(Time, "hh:mm:ss")
End Sub

USUARIO.EXCLUIDOS 24/03/2005 01:38:55
#74615

Text1 = Format(Now,"hh:mm:ss")

ARCE 24/03/2005 17:32:08
#74764

vc poderia fazer o seguinte:

Coloque no form um Timer(relogio) e o configure seu intervel para 1000(=1 segundo)

VC coloca o textbox e coloque no codigo :

text1.text=time

Para a hora aparecer exatamente na hora que vc vai abrir o form coloque este evento no form load:

Timer1_time

ve ai se consegue ..........=D

abraços