1、可能进入了死循环，仔细检查代码有无这种情况。
成都创新互联公司长期为上千多家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为西青企业提供专业的成都做网站、网站设计，西青网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。
2、无用的数据一直在累积而没有及时销毁，导致内存占用越来越大，最终崩溃。要注意对象随用随清，及时 Dispose 掉或调用 GC.Collect。
程序界面本身就是被windows画出来的，每次显示都要画上一遍，而每次重新画出程序，你的函数并没有因此而重新调用，当然图形就不见.
你可以在窗体的paint()事件里掉用函数
可以参考下面的代码：
Dim myexcel As excel.Application
On Error Resume Next
Set myexcel = GetObject(, "Excel.Application")
myexcel.Application.ScreenUpdating = False
扩展资料：
VB.NET关键词
Namespace包含类似或相关功能的类的集合
Class用来定义一个类用以存储对象的属性、方法和事件
Sub子过程，可以把要使用的数据以参数形式传入，但不返回值
Function函数，同样可以传参数，但要求有返回值
Property属性过程，设置或返回对象的属性值
Nothing表示一个变量没有值，与其他语言或数据库中的null等价
参考资料来源：百度百科-Visual Basic .NET
用time控件啊，获取threadstate后，按指定时间间隔规定向界面刷新，线程必须是全局变量
用一个有退出条件的无限循环的sub也行。
线程开始就触发该过程，用无限循环来刷新状态，线程完成即退出无限循环。局部变量的线程也可以用这种方式。
不过用法要正确，否则会出问题。