vb写正方形

格式:
Line(x1,y1)-(x2,y2),B,颜色
颜色可以是vbgreen,vbred等,也可以是RGB(a,b,c),abc都是0到255之间的整数,如果要随机颜色,可以是
Randomize
RGB(Fix(Rnd*256),Fix(Rnd*256),Fix(Rnd*256))

坐标是正方形两个相对顶点的坐标,如果是单击画边长为2*m的正方形,以鼠标光标为(x,y),那坐标就是(x-m,y-m)-(x+m,y+m)