Como puedo aregar la fecha y la hora a mi programa

[darkhack]

Iniciado por vbx3m

Código:

Private Sub Form_Load()
Label1.Caption = DateValue(Now)
Label2.Caption = TimeValue(Now)
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
xseg = xseg + 1
Label2.Caption = TimeValue(Now)
End Sub

ESTO ES LO MISMO PERO MAS FACIL Y MAS CORTITO
COLOCA 2 LABELS EN DONDE QUIERES QUE APAREZCAN LA FECHA Y LA HORA
COLOCA UN TIMER CON UN INTERVALO DE 1000

Private Sub Form_Load()
'muestra la fecha en el label
label1.caption= date
End sub

Private Sub Timer1_Timer()
'muestra la hora en el label y se actualiza cada segundo
label2.caption= Time(now)
End sub

Salu2