VB.NET Background Worker still freezes form.

See more:

VB

BackgroundWorker

Hello Everyone,

Can you help me with this one. Backgroundworker should make the Form responsive but my code is not doing that. Is there something wrong with the below code.

Private Delegate Sub EncyptFilesDelegate()

Private Sub EncyptFiles()
    If Me.InvokeRequired Then
        Me.Invoke(New EncyptFilesDelegate(AddressOf EncyptFiles), New Object() {})
    Else
        'MORE CODE (Declaration, Create Folder, etc)
        For Each Filename As String In frmMain.OpenFileDialog1.FileNames
            FileCrypt(Filename, save & folders(Index) & "\" & file, UniqueID,  Crypt.CryptAction.Encrypt)
        Next
    End If
End Sub

Private Sub FileCrypt(ByVal InputFile As String, ByVal OutputFile As String, ByVal Password As String, ByVal Direction As Crypt.CryptAction)
    'MORE CODE (Declaration, Getting Key, etc)
    If Direction = Crypt.CryptAction.Encrypt Then
        CryptoStream = New Security.Cryptography.CryptoStream(Output, Rijndael.CreateEncryptor(Key, IV), Security.Cryptography.CryptoStreamMode.Write)
    Else
        CryptoStream = New Security.Cryptography.CryptoStream(Output, Rijndael.CreateDecryptor(Key, IV), Security.Cryptography.CryptoStreamMode.Write)
    End If
    Dim persecond As Long = 0
    Dim watch As New Stopwatch
    watch.Start()
    While Processed < FileLength
        CurrentBlock = Input.Read(Buffer, 0, 4096)
        CryptoStream.Write(Buffer, 0, CurrentBlock)
        Processed = Processed + CLng(CurrentBlock)
        'PROGRESSBAR
        TotalProcessed = TotalProcessed + CLng(CurrentBlock)
        If watch.ElapsedMilliseconds > 1000 Then
            ProgressBar1.Value = CInt((TotalProcessed / TotalLength) * 100)
            Me.Text = CInt((TotalLength - TotalProcessed) / persecond) & " seconds remaining"
            persecond = 0
            watch.Restart()
        End If
        persecond = persecond + CLng(CurrentBlock)
    End While
    watch.Stop()
    CryptoStream.Close()
    Input.Close()
    Output.Close()
End Sub

Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    If Action = ProgressAction.Encypt Then
        Dim encypt As EncyptFilesDelegate = AddressOf EncyptFiles
        encypt.Invoke()
        MsgBox("Done")
    End If
End Sub

I try putting the FileCrypt inside the EncyptFiles but same result.

Thanks...