19/05/2006, 06:57
|
 | | | Fecha de Ingreso: febrero-2005 Ubicación: Venezuela
Mensajes: 524
Antigüedad: 20 años, 2 meses Puntos: 1 | |
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
__________________
ホルヘ・ラファエル・マルティネス・レオン
Última edición por vbx3m; 19/05/2006 a las 09:04 |