方法1:下载Anigif.ocx(Animation GIF ActiveX Control)控件
http://www.freevbcode.com/ShowCode.Asp?ID=758
或Animation GIF ActiveX Control版本: 2.x
URL: www.jcomsoft.comName: Demian/TNT! s/n: 1E39E678FFFF8EF613932D9A
记得加分!!
http://www.freevbcode.com/ShowCode.Asp?ID=758
或Animation GIF ActiveX Control版本: 2.x
URL: www.jcomsoft.comName: Demian/TNT! s/n: 1E39E678FFFF8EF613932D9A
记得加分!!
dim I as longprivate sub form_load
pictureclip1.cols=10
pictureclip1.rows=1
end subprivate sub timer1_timer
if I>=10 then I=0
image1.picture=pictureclip1.graphicCell(I)
I=I+1
end sub