VB 6.0 多边形面积问题，老生常谈

我是想用鼠标在picture上画多边形，一个个顶点点 最后一个封闭

    'm 是顶点数 p是各个顶点的x y     'm