ok i got it.......use a timer control and set its interval to 500 n use this:

VB Code:
  1. Private Sub tmrClock_Timer()
  2.      If lblClock.Caption <> Time Then
  3.           lblClock.Caption = Time
  4.      End If
  5. End Sub