Dim QuellDateiList() As String
    Dim ZielDateiList() As String
    Dim WinState As ProcessWindowStyle
    Dim ProgParameter(2) As String

Structure Daten
        Private Quelle() As String
        Private Ziele() As String
        Private Params() As String
        Private Window As ProcessWindowStyle
        Public Sub All(ByVal Quelle() As String, ByVal Ziele() As String, ByVal _
          Params() As String, ByVal Window As ProcessWindowStyle)
            Me.Quelle = QuellDateiList
            Me.Ziele = ZielDateiList
            Me.Params = ProgParameter
            Me.Window = Window
        End Sub
    End Structure

_Daten.All(QuellDateiList, ZielDateiList, ProgParameter, WinState)
      StartBGW(_Daten)

Public Sub StartBGW(ByVal _Daten As Daten)
        'erlaubt zugriff auf die windows form
        bgw.WorkerReportsProgress = True
        'erlaubt unterbrechung des bgw z.b. wenn das programm beendet wird
        bgw.WorkerSupportsCancellation = True
 
        bgw.RunWorkerAsync(_Daten)
 
    End Sub