響應鼠標的代碼：

　　Private Sub Form—Click ()

　　EndEnd Sub

　　切換演示工作主要在定時器中完成，代碼如下：

　　Private Sub Timer1-Timer ()

　　hDestDC=Form1.HDC ′目標DC。

　　hSrcDC=Picture1.hDC

　　drawflag =drawbmpmode(bmpnum)

　　Select Case drawflag

　　Case 1 ′從中間逐步放大。

　　endmax=xmax′用于結束判斷。

　　X1=xmax-movestep

　　w=movestep*2

　　Y1=Cint(ymax-movestep*kxy)

　　h=Cint(2*movestep*kxy)

　　i=BitBlt(hDestDC,X1,Y1,w,h,hSrcDC,X1,Y1,SRCCOPY)

　　Case 2 ′從左到右。

　　endmax=xmax

　　w=movestep*2

　　h=Form1.ScaleHeight

　　i=BitBlt(hDestDC,0,0,w,h,hSrcDC,X1,Y1,SRCCOPY)

　　Case 3 ′左右向中間。

　　endmax=xmax

　　w=movestep

　　h=Form1.ScaleHeight

　　i=BitBlt(hDestDC,0,0,w,h,hSrcDC,0,0,SRCCOPY)′左面部分。

　　X1= Form1.ScaleWidth-movestep

　　i=BitBlt(hDestDC,X1,0,w,h,hSrcDC,X1,0,SRCCOPY) ′左面部分。

　　Case 4 ′柵條狀。

　　endmax=CInt(2*xmax/10)

　　tempi=CInt(2*xmax/10)

　　w=movestep

　　h=Form1.ScaleHeight

　　For s=0 To 9

　　i=BitBlt(hDestDC,tempi*s,0,w,h,hSrcDC,tempi*s,0,SRCCOPY)

　　Next s

　　Case 5 ′棱形狀。