Sub Working()
        Dim QQueue As New Queue()
        Dim ZQueue As New Queue()
 
        For i As Integer = 0 To Files.Count - 1
            QQueue.Enqueue(Files(i))
            ZQueue.Enqueue(DestFiles(i))
 
        Next
        Collections.Queue.Synchronized(QQueue)
        Collections.Queue.Synchronized(ZQueue)
 
        Dim BGWInfo() As Object
 
        Dim DecoderPar As String = "-b 24 --replay-gain=audiophile -a -5 -S -v" & _
          "-o wave:"
        Dim SSRCPar As String = "--rate 44100 --bits 16 --twopass --normalize" & _
        "--dither 3"
 
        Dim Coding As New Coding
        Dim EncoderPar As String = Coding.EncParameter
 
        BGWInfo = {DecoderPar, SSRCPar, EncoderPar, QQueue, ZQueue}
 
        StartBGW1(BGWInfo)
 
        StartBGW2(BGWInfo)
    End Sub
 
 
 
    Friend WithEvents bgw1 As New BackgroundWorker
    Friend WithEvents bgw2 As New BackgroundWorker
 
    Public Sub StartBGW1(ByVal _BGWInfo() As Object)
        With bgw1
            .WorkerReportsProgress = True
            .WorkerSupportsCancellation = True
            .RunWorkerAsync(_BGWInfo)
        End With
    End Sub
#Region "Backgroundworker 1 Events"
    Private Sub bgw1_DoWork(ByVal sender As Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs) Handles bgw1.DoWork
        Dim Transdatei As String = ""
        Dim Encoding As New Encoding
        Dim Decoding As New Decoding
        Dim Coding As New Coding
        Dim FileWork As New FileWork
        Dim _BGWInfo() As Object = DirectCast(e.Argument, Object())