Private Sub BtnFoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFoto.Click



        'Usamos un OpenFileDialog para buscar la imagen
        With OpenFileDialog1
            .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
            .Filter = "Archivos de imagen (*.jpg,*.jpeg,*.bmp,*.png,*.gif)|*.jpg; *.jpeg; *.bmp; *.png; *.gif|Bitmaps (*.bmp)|*.bmp|GIFs (*.gif)|*.gif|JPEGs (*.jpg,*.jpeg)|*.jpg;*.jpeg|Todos los archivos (*.*)|*.*"
            .FilterIndex = 1
        End With

        'Cuando el usuario presiona 'Abrir' se registra el valor DialogResult.OK,
        'luego guardamos la ruta en el TextBox
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            With PictureBox
                .Image = Image.FromFile(OpenFileDialog1.FileName)
                .SizeMode = PictureBoxSizeMode.CenterImage
                .BorderStyle = BorderStyle.Fixed3D
            End With
            'guardo el nombre del archivo
            Me.objDocenteEN.Archivo = OpenFileDialog1.FileName
        Else
            MessageBox.Show("Error al cargar la foto", "Registrar Alumno", MessageBoxButtons.OK)
            Me.objDocenteEN.Archivo = Nothing
        End If

        Dim fInfo As FileInfo = New FileInfo(Me.objDocenteEN.Archivo)
        Dim numBytes As Long = fInfo.Length

        Dim fStream As FileStream = New FileStream(Me.objDocenteEN.Archivo, FileMode.Open, FileAccess.Read)
        Dim br As BinaryReader = New BinaryReader(fStream)
        Me.objDocenteEN.Foto = br.ReadBytes(numBytes)

        Dim arrNombreArchivo() As String = Split(Me.objDocenteEN.Archivo, "\")
        Array.Reverse(arrNombreArchivo)
        Me.PictureBox.SizeMode = PictureBoxSizeMode.StretchImage
        ' Dim strNombreFoto = Me.TbxNombre.Text + Me.TbxApPaterno.Text + Me.TbxApMaterno.Text

        'Envio el nombre del archivo y la imagen como un arreglo de bytes, para ser guardado en la BD
        'Me.gestorAlumno = New AlumnoLN
        'Me.gestorAlumno.insertarImagen(Me.objAlumnoEN.Archivo, Me.objAlumnoEN.Foto)


    End Sub