主题：[求助] 执行另段窗口中的代码

你好，窗口中有两个按钮，按钮1和按钮2 ，在不合并代码的情况下，点击按钮1后，再执行完按钮1的代码后再自动执行按钮2的代码？

谢谢了，试了一下可行，不过，以下的进度条，在两个代码中都有。 当执行第二个按钮时，又重新计算了，不连贯了。那怎么修正 ？ 谢谢。

 

Dim p As WinForm.ProgressBar
Dim d1 As Date = Date.Now
'Dim pb As WinForm.ProgressBar = e.Form.Controls("ProgressBar1")
p = e.Form.Controls("ProgressBar1")
p.Maximum = 1250 '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
p.Visible = True

 

代码段1

 

 

代码段2

 

p.Visible = False

msgbox("用时" & (Date.Now - d1).TotalMinutes)

 

 

可以了一致了。 另外我要在进度条下面显示总花了多少时间，如何设置呀。