主题：进度条效果

Dim p As WinForm.ProgressBar = e.Form.Controls("ProgressBar1")
p.Maximum = 86400 '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
Dim D As Date = Date.Now
Dim a As Integer
a =  d.Hour * 3600 +  d.Minute*60 +d.Second
p.Value = a

目的 ：把进度条 按1天24小时 细分  用来描绘时间进度。

请教， 以上的代码 我放在定时器上  每分钟 执行一次啊， 每次都从新描绘。 不好看。。。。

有没方法 让他 不重新描绘，而是直接 一点点 叠加上去。