主题：编译器错误6，溢出‘grid.drawline’

在一分钟K线图加载到最大的时候，会爆出这个错误，平常用都没事，请问怎么回事啊？

   call grid.DrawLine(0, dline,grid.width,dline,vbwhite,1)

 while not rstTmp.EOF
   aa=rstTmp("11")
    cc=rstTmp("22")
   dline=Grid.PriceToPels(aa)
   if day(cc)=day(date) and month(cc)=month(date) and year(cc)=year(date) then
   call grid.DrawLine(0, dline,grid.width,dline,vbwhite,1,1)
    else
   call grid.DrawLine(0, dline,grid.width,dline,vbwhite,1)
    end if 
   rstTmp.movenext
   wend

这句，迭代的这句，正常使用没问题的，问题出现在将K线加载到最大的情况下，会爆出这个错误。

我把这些函数加入进PAINT事件中，窗格每动一下就刷新一次。也就是说只要是行情时间段PAINT会一直重复绘制的。

但是这并没有引起程序的BUG，只有在我人为把K线图加载到最大的情况下，才会出现溢出。