創建動態圖標

所謂動態圖標，就是窗體左上角的圖標不停的變化著。其實現原理也很
　　簡單：經過一個時間段，讓窗體的圖標變成另一個圖標。如此循環，就可以實現了。
　　下面的例子實現了該功能。
　　>>步驟1----建立新工程，在窗體上放置一個PictureBox控件，設置其Index
　　=0,Visible=false;一個Timer時間控件。
　　>>步驟2----加入部件“MicrosoftWindowsCommonControls6.0(SP3)”，
　　並在窗體上放置一個ImageList控件，加入圖片，例子中加入了8張圖片。
　　>>步驟3----編寫如下代碼：
　　
　　PrivateSubForm_Load()
　　DimiAsInteger
　　
　　SetPicture1(0).Picture=ImageList1.ListImages(1).Picture
　　
　　Fori=1To7
　　LoadPicture1(i)
　　SetPicture1(i).Picture=_
　　ImageList1.ListImages(i 1).Picture
　　Next
　　
　　EndSub
　　
　　PrivateSubTimer1_Timer()
　　StaticiAsInteger
　　OnErrorResumeNext
　　Ifi=8Theni=-1
　　i=i 1
　　Me.Icon=Picture1(i).Picture
　　EndSub
　　
　　>>步驟4----編譯運行，看到窗體的圖標在不停的變化了嗎？->