Question

VB 加一个timer1,标签显示当前系统时间，并且label1以每秒100个单位向右移动，当Left=1119停止运动和时间

VB程序设计，控件：timer1,label1，label1的left初始值为600 。要求label1显示当前系统时间，并且以每秒100个单位的速度向右移动，当label1的left值为1119时停止运动并且同时time1停止计时.

Answer 1

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left > 1119 Then Timer1.Interval = 0
End Sub