如何在picture控件中平铺一幅图？

Question

平铺的意思，就是像windows桌面那样，用一张小图覆盖整个Picture。这个应该如何做呢？

Answer 1

    放一个源图片控件，设置控件名为“picSource”,并设置AutoSize=true。    设目标图片控件名为“picDest”。    x=0
    do while x<picdest.scalewidth
        y=0
        do while y<picdest.scaleheight
            picdest.paintpicture picsource.picture,x,y,,,0,0
            y=y+picsource.scaleheight
        loop
        x=x+picsource.scalewidth
    loop