Private Sub Code()
        Try
            'prepares the writer to write

            Dim fs As New FileStream("C:\Mitio\Locked.log",
                FileMode.Append)
            Dim sw As New StreamWriter(fs)
            ' sets the progressbar max value

            ProgressBar1.Maximum = lb.Items.Count
            For Each obj As Object In lb.Items
                Dim name As String = My.Computer.FileSystem.GetName(
                    obj.ToString)
                Dim bytes() As Byte
                ' reads the bytes from the specified fie & stores them in

                ' the array

                bytes = My.Computer.FileSystem.ReadAllBytes(obj.ToString)
                Dim bn As Integer = bytes.Length ' gets the length of the bytes

                ' appends the bytes of the array to the newly created

                ' Locked.locked file

                My.Computer.FileSystem.WriteAllBytes(
                    "C:\Mitio\Locked.Locked", bytes, True) 
                'writes the name of the file and the length of the

                'binaries in it

                sw.WriteLine(bn.ToString + "*" + name) 
                ProgressBar1.Value += 1 ' performs a step


            Next
            lb.Items.Clear() 'clears the list


            sw.Close() 'closes the writer

            fs.Close() 'and the file


            ProgressBar1.Value = 0 ' resets the  progressbar


        Catch ex As Exception
            ' if anything happens, you will be gently informed :D

            MsgBox(ex.Message)
        End Try
    End Sub