If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

    For Each file As String In OpenFileDialog1.FileNames()

        Dim pictureBox As New PictureBox()

        pictureBox.Image = Image.FromFile(file)

        pictureBox.Size = pictureBox.Image.Size

        Me.FlowLayoutPanel1.Controls.Add(pictureBox)

        pictureBox.Show()

    Next

End If