Private Sub Form_Load()

 Image1.Stretch = True

 Image2.Stretch = True

 Image3.Stretch = True

 Image4.Stretch = True

 Image5.Stretch = True

 Image6.Stretch = True

 Image7.Stretch = True

 Image8.Stretch = True

 Image9.Stretch = True

 Image1.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_02.jpg")

 Image2.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_03.jpg")

 Image3.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_04.jpg")

 Image4.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_05.jpg")

 Image5.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_06.jpg")

 Image6.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_07.jpg")

 Image7.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_08.jpg")

 Image8.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_09.jpg")
End Sub

开始时我只加载了一张图片，可以
但现在就一直出现“实时错误 ‘481' ”

还有“无效图片”
附：
我几种格式（GIF PNG JPG)都试过就是这样的提示
有一次我加载一张图时，GIF的可加载，但现在多了不知道为什么不行了

那个我是用“PS”做出来的

我去试试你的方法，谢谢

不行的话再上传

用“PICTUREBOX"也没用
就如这个图

谢谢大家的帮忙
感激不尽