我先在pictruebox里面用
For i = 1 To nw
For j = 1 To nj
Form1.Picture1.Line (10 + (j - 1) * 10, 10 + (i - 1) * 10)-(10 + j * 10, 10 + i * 10), g(i, j), BF
Next
Next
作一连续带颜色的连续矩形。其中nj(列)和nw(行)分别是经纬循环数(行列式的行和列)，g(i,j)为颜色代码值。
现在我想把所画出的矩形框缩小到象素表示(或者直接用象素画)怎么变化？
还有就是把所画矩阵进行左右和上下复制(或者直接进行复制再画出来)怎么实现？

定义为像素格式：picture1.scalemode=3

picture1.pset(x,f(x))

em03]