Dim CX，CY，半徑，極限'聲明變量。
圖片1。AutoRedraw = True
圖片1。ScaleMode = 3 '像素。
CX = picture 1 . scale width/2 ' x位置。
Cy =圖片1。scale height/y軸位置。
如果CX & gt；CY Then Limit = CY Else Limit = CX
對於半徑= 0來限制半徑。
圖片1。圓(CX，CY)，半徑，RGB(Rnd * 255，Rnd * 255，Rnd * 255)
下壹個半徑
對於I = 0到50，步驟2 '設置回路。
F = I/50 '在執行過程中。
f 1 = 1-f:F2 = 1+f '計算。
圖片1。線(CX * F1，CY)-(CX，CY * F1)'畫左上角。
圖片1。線-(CX * f2，CY)'畫右上角。
圖片1。線-(CX，CY * f2)'畫右下角。
圖片1。線-(CX * F1，CY)'畫左下角。
ForeColor = QBColor(I Mod 15)'每次都換顏色。
接下來我
保存圖片圖片1。圖片，" z:\test.bmp "
末端接頭