Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
   .... 
   If CloseApp(Path.Combine(_appfolder, _appname)) = True Then
       For i As Integer = 0 To listoffiles.Count - 1
                bgw.ReportProgress(100, Path.GetFileName(listoffiles(i)) & "" & _
                  "wird kopiert.")
                File.Copy(listoffiles(i), Path.Combine(_appfolder, _
                Path.GetFileName(listoffiles(i))), True)
            Next i 
   End if
End Sub
Private Function CloseApp(ByVal appName As String) As Boolean
        'prozess anhand des exenamens ermitteln
        Dim p() As Process = Process.GetProcessesByName( _
          Path.GetFileNameWithoutExtension(appName))
        Try
            p(0).CloseMainWindow()
            'prüfen ob dieser prozess noch existiert
            If Process.GetProcessesByName(appName).Length > 0 Then
                'die anwendung läuft noch immer
                p = Nothing
                Return False
            End If
        Catch ex As Exception
            'ausnahme - die zu beendende anwendung wird im moment nicht 
            ' ausgeführt
            p = Nothing
            Return True
        End Try
        'anwendung wurde korrekt beendet
        p = Nothing
        Return True
    End Function