For i As Byte = 0 To 4 Picture(i).Size = New Size(Picture(i).Size.Width, 320) Picture(i).Size = New Size(Picture(i).Size.Height, 160) Picture(i).SizeMode = PictureBoxSizeMode.Zoom Picture(i).Image = Image.FromFile(PicturePath + "MojiGAZou" + CStr(i + 1) + ".bmp") Picture(i).Dispose() Next