(for + if +timer控件)循环显示图片解决办法

(for + if +timer控件)循环显示图片
假设现在我的窗体上有四个Image控件,
 前面的三个已经加载了不同的图片(控件名分别是Image1,Image2,Image3) ,另外有一个Image4控件(没有图片)
 
 现在只能用timer控件 for语句 if语句 怎么让Image4控件,轮流显示Image1,Image2,Image3内容

[解决办法]

VB code

Option ExplicitPrivate Sub Timer1_Timer()    Static i As Long        i = (i + 1) Mod 3    Set Image4.Picture = Choose(i + 1, Image1, Image2, Image3).PictureEnd Sub
[解决办法]
dim i as Integer

Sub Show_Image4Pic(Index as Integer)
Select case Index
Case 1
 set Image4.Picture=Image1.Picture
Case 2
 set Image4.Picture=Image2.Picture
Case 0
 set Image4.Picture=Image3.Picture
End Select
End Sub

Timer1_Timer()
 i=(i+1) mod 3
 Show_Image4Pic i
End Sub