经测试,你的代码没有问题。
据你所说,“Picture1(b1).PSet画的图在Picture1(b1)中能显示,Picture1(b1).Line画的图却不能显示”,问题应该出在你的数组x2或者g中,请你检查数组的值是不是正常。
如果还不能正常工作,建议你将数组创建和赋值部分的代码贴出来,打叫也好帮你分析解决问题。
是不是数组无值,我试了一下,Picture1.Line (2000, 2000)-(6000, 5000), RGB(255, 0, 0),没有一点问题啊,前面的代码是什么样的