diff --git a/guinget/ApplyChangesWindow.vb b/guinget/ApplyChangesWindow.vb
index 34705d35..1e4ed209 100644
--- a/guinget/ApplyChangesWindow.vb
+++ b/guinget/ApplyChangesWindow.vb
@@ -50,6 +50,13 @@ Public Class ApplyChangesWindow
         ' when they're ready to start installing them.
         MessageBox.Show("Sorry, we don't support automatic batch package installs yet, but you can double-click or press Enter" &
                         " on each package in the list to install them individually when you're ready.", "Confirm changes")
+        Dim PackageIDs As New List(Of String)
+        Dim PackageVersions As New List(Of String)
+        For Each Package As DataGridViewRow In datagridviewAppsBeingInstalled.Rows
+            PackageIDs.Add(Package.Cells(0).Value.ToString)
+            PackageVersions.Add(Package.Cells(1).Value.ToString)
+        Next
+        PackageTools.BulkInstallPkg(datagridviewAppsBeingInstalled.Columns(0))
     End Sub
 
     Private Sub InstallSinglePackage()
diff --git a/libguinget/PackageTools.vb b/libguinget/PackageTools.vb
index 1fe7c92a..1647e55e 100644
--- a/libguinget/PackageTools.vb
+++ b/libguinget/PackageTools.vb
@@ -76,8 +76,11 @@ Public Class PackageTools
                 For Each Version As String In PackageVersions
                     ' Begin adding packages to the list.
                     BulkInstallCommandList = "winget install --id " & Package & " -v " & Version & InteractiveFlag & " -e"
+                    '
                 Next
             Next
+
+            MessageBox.Show(BulkInstallCommandList.ToString)
         End Using
     End Sub
 #End Region