vb中，窗口上有控件timer1(enable为true，interval为6000)和cmd1( vb使用跨窗口定义timer

VB怎么使用timer让label控件在窗口里面自由移动 代码：dim ix as integerdim iy as integerix=round(rand(me.width)*me.width，0)if ix+label1.width>；me.width then ix=ix-label1.widthiy=round(rand(me.height)*me.height，0)if iy+label1.height>；me.height then iy=iy-label1.heightlabel1.move ix，iy将上面的代码放置在timer的事件中。vb中，窗口上有控件timer1(enable为true，interval为6000)和cmd1( timer1.enable=false 这句里的 enable 应该是 enabled。代码没什么问题，如果你的控件名都对的话，那么运行程序6秒后 cmd1 将由不可见变为可见。vb timer 弹出窗口 添加一个Timer命名为Timer1private sub form_load()timer1.interval=1000timer1.enabled=trueend subprivate sub timer1_timer()static c as integerc=c+1if c=5 then 'Time out.form2.showtimer1.enabled=falsec=0end ifend subvb窗口加载时启动timer，button用来停止定时器，但运行时点button没有响应，是不是要 '请参考采纳！谢谢！Private Sub Form_Load()Timer1.Interval=1 '时间1毫秒秒运行一次Timer1.Enabled=True '时间开始运行End SubPrivate Sub Command1_Click()'停止按钮Timer1.Enabled=False '时间停止运行End SubPrivate Sub Command2_Click()'继续运行按钮Timer1.Enabled=True '时间开始运行End SubPrivate Sub Timer1_Timer()Label1.Caption=Val(Label1.Caption)+1 '举个例子使用Label1每毫秒递加一计算End Sub

#interval#sub