VB 加一个timer1,标签显示当前系统时间,并且label1以每秒100个单位向右移动,当Left=1119停止运动和时间
问题描述：
VB 加一个timer1,标签显示当前系统时间,并且label1以每秒100个单位向右移动,当Left=1119停止运动和时间
VB程序设计,控件：timer1,label1,label1的left初始值为600 .要求label1显示当前系统时间,并且以每秒100个单位的速度向右移动,当label1的left值为1119时停止运动并且同时time1停止计时.
答
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