VB 中想实现两张或者两张以上 image 图片交替出现

VB 中想实现两张或者两张以上 image 图片交替出现，计时器里面怎么填写代码啊？ 我现在只会第一张暂短消失 image.visible=not image1.visible
第二张就不会了 ，还有第三张....... 求高手指教！！！！！

最好有简短代码！

计时器name属性为jsq
图象框name属性分别为m1,m2,m3
private sub jsq_timer()
if m1.visible=true then
m1.visible=fales:m2.visible=true:m3.visible=false
elseif m2.visible=true then
m1.visible=false:m2.visible=false:m3.visible=true
elseif m3.visible=true then
m1.visible=true:m2.visible=false:m3.visible=false
end if
end sub

加两个picture控件picture1和picture2，分别加入2张图片 用timer来实现两张图片交替显示: private sub ontimer() if picture1.visible = false then picture1.visible = true picture2.visible = false else picture2.visible = true picture1.visible = false end if end sub

可以加个picturebox图片框，在添加图片列表框：imagelist，在timer事件中让picturebox的image属性遍历imagelist中的所有图片不就行了哈