如何在vb窗口上动态显示图片，用什么控件？

Question

在vb窗口上有很多图片，要根据不同的情况显示不同的图片

Answer 1

select case '情况
case 1
picture1.picture=loadpicture("图片1")
case 2
picture1.picture=loadpicture("图片2")
.
.
.
end select

Answer 2

picture1.picture=loadpicture("图片1")图片要放在ImageList里，怎么读取阿！

Answer 3

如果图处不大的话,用几个image加载一下,并将这些image隐藏
要用的时候,调用就是了，如
ImgMain.Picture = Image2(0).Picture   ’调用Image2(0)中的图片
如果图片比较大
Picture1.Picture = LoadPicture(IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\Picture\") & "1.bmp")