n=n+1
成都创新互联公司长期为1000+客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为克东企业提供专业的网站建设、成都网站制作，克东网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。
之后你重新redim policetask(1,n-1) 此时的n-1就是0，相当于你的第二维中本身就没有任何元素（vb点虐 中的数组定义是不含上标的，跟vb不一样），之后你再对plicetask(0,n-1)操作就会报错。
另外，大致看了一下，程序大概是找重复次数的，不过vb点虐 中不是有Dictionary这种东西么，为什么还要用数组去自己查找。
用VB编程时提示错误"溢出"是赋值超出目标（内存）的限制而产生的错误。
溢出（错误 6）
当赋值超出目标的限制时，就会发生溢出。此错误有以下的原因和解决方法：
赋值、计算或数据类型的结果的转换太大，以致于不能在变量类型所允许的范围内表示出来。
赋值给足够表示值的范围的类型的变量上。
给属性的赋值超过属性能接受的最大值。
确保赋值适合属性的范围。
试图在计算中使用一个数字，并且该数字被强制为一个整数，但是结果超过了整数的范围，例如：
Dim x As Long
x = 2000 * 365 ' 错误: 溢出
要解决这个问题，请按如下方式键入该数字：
Dim x As Long
x = CLng(2000) * 365
题主这个FunctionFindWindow(一堆参数)AsLong，返回值是个Long，而下面wd=FindWindow()，wd却是个Integer类型的，当然会溢出。楼上说都改成Long确实可以，不过题主的API声明是从VB里拷贝过来的吧？VB里的Long到.NET中就是Int32了，所以应该把上面FindWindow的返回类型由Long改为Int32（或者Integer）才是正解。
溢出就是说你设置的变量不合适,数据大于你设置的变量范围了.
比如你设置的是int,,,,而数据超过了256,就会
溢出
