控件数组划线，画矩形，画圆等，VB源码