VB Forum / COM / December 2003

Is this what you are looking for?

Private Sub Form_Load()
Label1.Caption = Now()
End Sub

When the form is loaded, it will put the current time and date in a label.

Brian

Or... If you want it to update at an interval, you can add the timer
control.  Timer interval is in miliseconds.

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

Private Sub Timer1_Timer()
Label1.Caption = Now()
End Sub

Brian

Use the timer ActiveX on the left bar. Pull that icon on your developed
interface. Draw a label name Label1. and input the source code as follows

Private Sub Timer1_Timer()
  Label1.Caption = Time   ' Update time display.
End Sub