定义一个公有布尔值变量 flag，初始值 False。
成都创新互联公司专注于企业全网营销推广、网站重做改版、禅城网站定制设计、自适应品牌网站建设、H5页面制作、商城建设、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为禅城等各大城市提供网站开发制作服务。
循环里最开始 If 判断一下 flag，如果为 True 就 Exit Do 跳出循环，否则继续循环。
然后在别的函数控制 flag 的值就可以了。
P.S. 你这段代码是死循环，直到程序占用内存越来越大溢出进而程序崩溃为止……
1、可能进入了死循环，仔细检查代码有无这种情况。
2、无用的数据一直在累积而没有及时销毁，导致内存占用越来越大，最终崩溃。要注意对象随用随清，及时 Dispose 掉或调用 GC.Collect。
不可以的，但是出现错误的时候不是已经告诉你在多少行了吗？你把行号显示出来就可以了。
显示行号的方法：工具选项文本编辑器basic编辑器
这项下有个行号，你打钩就好了。
这样一来报错的时候，提示在多少行，你就到多少行去看。如果你没有用try的话，错误在哪里，ide会在错误的位置给你标示出来。
