Horas y minutos

[ceijav]

Hola que tal tengo una pequeña duda como puedo poner en un textbox la hora exacta y en otro textbox solo los minutos y en otro textbox los segundos se puede realizar esta funcion

[obravista]

Private Sub Command1_Click()
Text1.Text = Hour(Time)
Text2.Text = Minute(Time)
Text3.Text = Second(Time)
End Sub