endmax=CInt(2*xmax/10)

　　tempi=CInt(2*xmax/10)

　　w=movestep

　　For ih=0 To w-1

　　For ik=0 To 9

　　For ij=0 To 9

　　l=tempi*ik+tempi/2

　　t=tempi*ij+tempi/2

　　i=BitBlt(hDestDC,1-(w-ih),t-ih,(w-ih)*2,1,hSrcDC,1-(w-ih), t-ih, SRCCOPY)

　　i=BitBlt(hDestDC,1-(w-ih),t+ih,(w-ih)*2,1,hSrcDC,1-(w-ih), t+ih, SRCCOPY)

　　Next ij

　　Next ik

　　Next ih

　　End Select

　　Form1.Refresh

　　movestep=movestep+2 ′步進增加。

　　If movestep>endmax Then

　　bmpnum=bmpnum+1 ′進到下一張畫。

　　If bmpnum>=bmpfilemax Then

　　bmpnum=0

　　End If

　　movestep=0

　　Picture1.Picture=LoadPicture(bmpfile(bmpnum))

　　End If End Sub