Again

 Private Sub YtButton2_Click(sender As Object, e As EventArgs) Handles YtButton2.Click
        Label3.Text = "Preparing..."

        TabControl1.Enabled = False

        YtButton1.Enabled = False
        YtButton2.Enabled = False
        YtButton3.Enabled = False

        BackgroundWorker.RunWorkerAsync(DirectoryToInstall)

        Label3.Text = "Moving Zip File and Extracting..."

        Progress.Start()
    End Sub

Private Sub BackgroundWorker_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker.DoWork
        Dim DirectoryToInstall As String = DirectCast(e.Argument, String)

        DeleteTemp()

        MoveZip()

        MyExtract()

        CreateDirs()

        CleanMods()

        InstallMods()

        DeleteTemp()

    End Sub