Error con archivos en uso

[killed]

Hola!
Tengo un pequeño problema, al ejecutar el siguiente código cargo el nombres de unos archivos en una lista, para después al pulsar un botón los renombre según un texto. Lo que me pasa es que al intentar renombrarlos me dice que los archivos siguen en uso, y no sé como cerrarlos...

Código:

    Private Sub btncargar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncargar.Click
        Dim nombre As String
        ListBox1.Items.Clear()
        Try
            For Each Archivo As String In My.Computer.FileSystem.GetFiles( _
                                    txtruta.Text, _
                                    FileIO.SearchOption.SearchAllSubDirectories, _
                                    "*.jpg")
                nombre = Archivo.ToString.Replace(txtruta.Text, "")
                ListBox1.Items.Add(nombre)
                Dim myImage As System.Drawing.Image = Image.FromFile(txtruta.Text & nombre)
                ImageList1.Images.Add(myImage)

            Next
        Catch oe As Exception
            MsgBox(oe.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

A ver si me podéis ayudar, muchas gracias ^^

[David]

Hola, killed.

Traslado el tema a una sección que encaja mejor con tu pregunta.
Tema trasladado desde la sección de Visual Basic clásico.

Saludos.

[bllua]

Supongo que el problema esta en que tienes la imagen cargada en el ImageList1 cuando intentas renombrarla por eso te da el error. Deberías quitarla del ImageList1, para que se cierre, y luego renombrar el archivo.

[killed]

Es que al pasar un tiempo, si me deja renombrarlas aunque este la imagen cargada en el imagelist, no lo entiendo...