有り難うございます。
このワザは知りませんでした。（あちらこちら調べまわったのですが、なかなかみつけられませんでした）
しかし、このような冗長なコードでいいのですか？

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim fname As String
            Dim fname1 As String
            Dim fname2 As String
            Dim fname3 As String
            Dim fname4 As String
            
            

            fname = OpenFileDialog1.FileNames(0)
            fname1 = OpenFileDialog1.FileNames(1)
            fname2 = OpenFileDialog1.FileNames(2)
            fname3 = OpenFileDialog1.FileNames(3)
            fname4 = OpenFileDialog1.FileNames(4)

            PictureBox1.Image = Image.FromFile(fname)

            PictureBox2.Image = Image.FromFile(fname1)

            PictureBox3.Image = Image.FromFile(fname2)


            PictureBox4.Image = Image.FromFile(fname3)

            PictureBox5.Image = Image.FromFile(fname4)