求教，如图这里有3个picturebox，我要怎么做才能让这

Private Sub Command1_Click()
File1.ListIndex = 0
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
File1.ListIndex = 1
Picture2.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
File1.ListIndex = 2
Picture3.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End Sub
Private Sub Form_Load()
File1.Path = "c:\z" '需要额外多添加一个filelistbox控件,并指定三个图像文件存放的路径
File1.Pattern = "*.bmp" '指定图像类型
End Sub

楼主想问的是不知道文件名的情况吧？那应该用文件枚举啊。随便搜一下就很多。