添加壹個Label控件,取名:Lab
添加壹個Timer控件,取名:Timer1,每200毫秒執行壹次。
Private sub timer1_timer()
Lab.caption = rnd() * 100
end sub
Private sub command1_click()
if comm.caption = "開始" then
comm.caption = "停止"
print lab.caption
else
comm.caption = "開始"
end if