Long time ago when I still used timers to make clocks I setted it's interval to 200 or 300 so it nearly updates every second. To prevent flickering check if the label already contains the time:
Code:
Private Sub Timer1_Timer()
    If Not Label1.Caption = Time Then: Label1.Caption = Time
End Sub