La routine è formalmente giusta, ma non ho capito cosa vuoi fare... vuoi visualizzare un orologio ?

Private Sub Timer1_Timer()

Orario.Text = CStr(Time)

End Sub