VB 加一个timer1,标签显示当前系统时间,并且label1以每秒100个单位向右移动,当Left=1119停止运动
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 Su