prova così: imposta la proprietà "Interval" del timer a 1000 e poi scrivi
codice:
Private Sub Form_Load()
    Timer1_Timer
End Sub

Private Sub Command1_Click()
    Timer1_Timer
End Sub

Private Sub Timer1_Timer()
    Label1.Caption = Format(Now, "HH.MM.SS")
End Sub
prova e fammi sapere come va.