Visual Basic - ayuda sobre hora en curso

necesito ayuda.. tengo un programa donde tengo un label y en cuanto ejecute el programa necesito que aparezca la hora inmediatamente. y lo que hace es que me muestra la hora nada mas cuando presiono cualquier tecla .
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
lbltiempo.Caption = Format(Time, "hh:mm:ss AMPM")
lbltiempo.Refresh
end sub
gracias por su ayuda

Cambialo a:
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
lblTiempo = Format(Time, "hh:mm:ss AMPM")
End Sub
Private Sub Timer1_Timer()
DoEvents
lblTiempo.Caption = Format(Time, "hh:mm:ss AMPM")
lblTiempo.Refresh
End Sub