Private Sub Timer1_Timer()
    Text1.Text = Time
End Sub
把timer1的interval属性设为1000