Private Sub Timer1_Timer()Label1.Caption = Val(Label1.Caption) + 1 'val(标签)是将标签内容数字化·防止出错用的End Sub速度自定
添加个Timer控件设置执行时间间隔为1000事件中代码 label.Text = Val(label.Text)+1;
