For I = 0 To 34
Picture1.Line (x0 + 60 * I * w, y0 - shuzu(I, 1))-(x0 + 60 * (I + 1) * w, y0 - shuzu(I + 1, 1)), QBColor(12)
Picture1.Line (x0 + 60 * I * w, y0 - shuzu(I, 2))-(x0 + 60 * (I + 1) * w, y0 - shuzu(I + 1, 2)), QBColor(10)
Next
SavePicture Picture1.Image, "c:\123.jpg"
这样行吗???