Instead of randomizing the file name like here

frmMain.MapTile(Index).Picture = LoadPicture("C:\Documents and Settings\Mike\My Documents\RPG Game\Images\MAP" & Map.Tile(Xval, Yval).Type & "-" & RndImg & ".gif")

Use Dir function (or FSO, or FiliListBox) to load all files to a list, then randomize a number in the range of the number of items in the list and based on that use a file from the list.