Dim myArr(4) '5 pictures
MyArr(0) = "C:\mypic1.jpg"
MyArr(1) = "C"\mypic2.gif"
etc.

Set Picture1.Picture = LoadPicture MyArr(0) ' load mypic1