VB控件数组画图,每次输出新图形,前面的清除,可以画直线、矩形、圆。具体的代码操作,请看如下:   PrivateSubForm_Load()   Picture1.Scale(0,0)-(10,10)'设置坐标系   EndSub   PrivateSubCommand1_Click(IndexAsInteger)'控件数组的单击事件   Picture1.Cls'每次输出新图形,前面的清除   Picture1.FillStyle=6'填充十字线形   SelectCaseIndex'index代表控件数组