AJUDA PICTUREBOX

  Form4.PictureBox1.Image = Nothing
        [ô]OpenFileDialog1.OpenFile = Nothing


        [ô]define as propriedades do controle 
        [ô]OpenFileDialog
        Me.OpenFileDialog1.Multiselect = True
        Me.OpenFileDialog1.Title = [Ô]Selecionar Fotos[Ô]
        OpenFileDialog1.InitialDirectory = [Ô]C:\Users\f5361091\Pictures[Ô]
        [ô]filtra para exibir somente arquivos de imagens
        OpenFileDialog1.Filter = [Ô]Images (*.BMP;*.JPG;*.GIF,*.PNG,*.TIFF)|*.BMP;*.JPG;*.GIF;*.PNG;*.TIFF|[Ô] & [Ô]All files (*.*)|*.*[Ô]
        OpenFileDialog1.CheckFileExists = True
        OpenFileDialog1.CheckPathExists = True
        OpenFileDialog1.FilterIndex = 4
        OpenFileDialog1.RestoreDirectory = True
        OpenFileDialog1.ReadOnlyChecked = True
        OpenFileDialog1.ShowReadOnly = True

        Dim dr As DialogResult = Me.OpenFileDialog1.ShowDialog()

        If dr = System.Windows.Forms.DialogResult.OK Then
            [ô] Le os arquivos selecionados 
            For Each file As [String] In OpenFileDialog1.FileNames
                TextBox1.Text += file
                [ô] cria um PictureBox
                Try
                    Dim pb As New PictureBox()
                    Dim Imagem As Image = Image.FromFile(file)
                    pb.SizeMode = PictureBoxSizeMode.StretchImage
                    [ô]para exibir as imagens em tamanho natural 
                    [ô]descomente as linhas abaixo e comente as duas seguintes
                    pb.Height = Height
                    pb.Width = Width
                    [ô] pb.Height = 100
                    [ô] pb.Width = 100
                    [ô]atribui a imagem ao PictureBox - pb
                    pb.Image = Imagem
                    [ô]inclui a imagem no containter flowLayoutPanel
                    Form4.PictureBox1.Controls.Add(pb)
                Catch ex As Security.SecurityException
                    [ô] O usuário  não possui permissão para ler arquivos
                    MessageBox.Show((([Ô]Erro de segurança Contate o administrador de segurança da rede.[Ô] & vbLf & vbLf & [Ô]Mensagem : [Ô]) + ex.Message & vbLf & vbLf & [Ô]Detalhes (enviar ao suporte):[Ô] & vbLf & vbLf) + ex.StackTrace)
                Catch ex As Exception
                    [ô] Não pode carregar a imagem (problemas de permissão)
                    MessageBox.Show(([Ô]Não é possível exibir a imagem : [Ô] & file.Substring(file.LastIndexOf([Ô]\[Ô]c)) & [Ô]. Você pode não ter permissão para ler o arquivo , ou [Ô] & [Ô] ele pode estar corrompido.[Ô] & vbLf & vbLf & [Ô]Erro reportado : [Ô]) + ex.Message)
                End Try

            Next
        End If