option explicit
dim i as integer                                    '定義變量
private sub form_load()                             '下面代碼實(shí)現(xiàn)圖像框img2居中顯示
img2.left = (scalewidth - img2.width)/2
img2.top = (scaleheight - img2.height)/2
end sub
private sub timer1_timer()
if i = 10 then i = 0                                '如果變量i為10，則i為0
i = i + 1                                           '變量i不斷變化
select case i                                       '將i作為測(cè)試表達(dá)式
case 0                                              'i為0時(shí)
img2.picture = img1(1).picture                      '將索引為1的圖像框中的圖片賦給img2
img1(1).left = img2.left                            '圖像框img1(1)與img2的水平位置相同
img1(1).top = img2.top                              '圖像框img1(1)與img2的垂直位置相同
case 1
img2.picture = img1(2).picture
img1(2).left = img2.left
img1(2).top = img2.top
case 2
img2.picture = img1(3).picture
img1(3).left = img2.left
img1(3).top = img2.top
case 3
img2.picture = img1(4).picture
img1(4).left = img2.left
img1(4).top = img2.top
case 4
img2.picture = img1(5).picture
img1(5).left = img2.left
img1(5).top = img2.top
case 5
img2.picture = img1(6).picture
img1(6).left = img2.left
img1(6).top = img2.top
case 6
img2.picture = img1(7).picture
img1(7).left = img2.left
img1(7).top = img2.top
case 7
img2.picture = img1(8).picture
img1(8).left = img2.left
img1(8).top = img2.top
case 8
img2.picture = img1(9).picture
img1(9).left = img2.left
img1(9).top = img2.top
case 9 
img2.picture = img1(10).picture
img1(10).left = img2.left
img1(10).top = img2.top
end select
end sub