主题：甘特图行不能完整显示的问题

在编码绘制甘特图中有如下问题

此主题相关图片如下：qq截图20160929195758.jpg

如上图，甘特图中有一个问题，当向下滚动时如何容器的高度刚好不是任务行的整数倍，最后一行只能看到一半，因为

 e.Table.TopVisibleRow = e.Table.TopVisibleRow '此行不可少,确保第一个可见行完整显示

这句代码让最上面一行完整显示导致最下面就可能显示不完整，怎么样写代码才能实现

 

当滚动条位于上半部分时就上第一行完整可见，反之，滚动条位于下半份时就让

 

e.Table.BottomVisibleRow = e.Table.BottomVisibleRow  '此行不可少,确保最后一个可见行完整显示

 

即如何判断滚动条是在上半还是下半，代码怎么写？或者还有其他更好的办法？

 

谢谢！

谢谢，但是这样用法会出错唉