请教老师，比如在窗口AFTERLOAD 写入代码有1000-2000行，会影响窗口打开速度，打开窗口的时间有时10秒左右，有时需要20多秒

               另外，在BUTTON的CLICK中写入代码多达400行，是否也影响打开窗口速度，以下代码是否有更简洁的写法

比如：

\'--------------------------------SQL Table1 项目信息跟单 加载 
Dim sd As WinForm.ComboBox
sd = e.Form.Controls("ComboBox3")
If sd.Value Is Nothing  Then
   Messagebox.Show("请先输入 年份","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Dim Cb0 As String = sd.Value
Dim y As Integer = Cb0
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String = "1=2"
Filter = "拜访日期 >= #" & dt1 & "# And 拜访日期 <= #" & dt2 & "#"     \'SQL Table1 信息动态跟单 
DataTables("流程监控_Table1").LoadFilter = Filter \'设置加载条件
DataTables("流程监控_Table1").Load() \'加载数据

\'------------------------------------------------------------------------ SQL Table2 信息初步甄审 
Dim Filter1 As String
Filter1 = "信息甄批_初审日期 >= #" & dt1 & "# And 信息甄批_初审日期 <= #" & dt2 & "#"    
DataTables("流程监控_Table2").LoadFilter = Filter1 \'设置加载条件
DataTables("流程监控_Table2").Load() \'加载数据

...

...

...

 另外，如果电脑打开，启动已发布项目需要30秒打开，然后关闭项目，再启动已发布项目只需要19秒；如果项目打开后第一次使用某窗口需要25秒打开，关闭该窗口，再次打开仅需要9秒，是什么原因。

老师，我把  Dim st As Date = Date.Now  放在AFTERLOAD 第一行 把MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") \'计算并显示执行代码所花费的秒数放在最后一行进行测试，耗时才0.06秒，打开窗口可需要15秒，其他代码要打开窗口后才执行，其他代码的测试在触发时也在0秒以内，

是否是我的测试方法不对？

怎样只测试窗口打开耗时

是否是窗口的控件越多，打开窗口的速度就越慢？

也可能是数据加载问题。

是互联网，还是局域网？

加载了多少数据？

狐爸，蓝老师，我做的是个动态流程可视化窗口，大量使用了 图片控件，是否是这个原因导致窗口开启速度慢，另外，蓝老师给的代码写在哪里测试

里面用了50多个SQL表 ，目前是单机测试，没有进入服务器，初设都不加载数据，只有选择年份后才开始加载数据