VB设计中想要增加计时功能 怎么让一个text控件中显示当前游戏所用时间
private a as long
private sub form_load()
timer1.interval=1000
end sub
private sub timer1_timer()
a=a+1
text1.text=a
end sub
private a as long
private sub form_load()
timer1.interval=1000
end sub
private sub timer1_timer()
a=a+1
text1.text=a
end sub