Dim p()
ScaleMode = 3
圖片1。AutoRedraw = True
圖片1。ScaleMode = 3
w =圖片1。刻度寬度
h =圖片1。比例尺高度
ReDim p(w - 1，h - 1)
對於i = 0至w - 1
對於j = 0至h - 1
p(i，j) = Picture1。點(I，j)
下壹個j
接下來我
圖片1。寬度= h + 4 *圖片1。邊框樣式
圖片1。高度= w + 4 * Picture1。邊框樣式
對於i = 0至h - 1
對於j = 0至w - 1
圖片1。PSet (i，w - j - 1)，p(j，I)
下壹個j
接下來我
將圖片1.pset (I，w-j-1)順時針旋轉90度，p (j，I)。
改成圖片1。pset (H-I-1，J)，P (J，I)。
旋轉180度，將最後七行改為
對於i = 0至w - 1
對於j = 0至h - 1
圖片1。PSet (i，j)，p(w - i - 1，h - j - 1)
下壹個j
接下來我