想显示 ：“程序”运行完成所要的时间，怎么弄，谢谢！

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Dim sj As Double
        sj = Timer   

        程序

        MsgBox(Timer - sj)
    End Sub

Click事件开始时,用一个变量a记录当前时间,
主要过程结束时,用一个变量b记录当前时间,
再用时间函数计算变量b与变量a之间的秒数.
最后用msgbox 或其它形式展示出来.

版主你好，请来点代码好吗，谢谢！