Some changes. Still borked!

Kill It With Fire!/Kill It With Fire!/Kill It With Fire!.vbproj

@@ -68,6 +68,9 @@
     <CodeAnalysisRuleSet>ManagedMinimumRules.ruleset</CodeAnalysisRuleSet>
     <Prefer32Bit>true</Prefer32Bit>
   </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="System" />
     <Reference Include="System.Data" />
@@ -138,6 +141,7 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="My Project\app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>

Kill It With Fire!/Kill It With Fire!/My Project/AssemblyInfo.vb

@@ -9,7 +9,7 @@ Imports System.Runtime.InteropServices
 ' Review the values of the assembly attributes
 
 <Assembly: AssemblyTitle("Kill It With Fire!")> 
-<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyDescription("A program meant to end annoying, unnecessary processes.")> 
 <Assembly: AssemblyCompany("")> 
 <Assembly: AssemblyProduct("Kill It With Fire!")> 
 <Assembly: AssemblyCopyright("Copyright ©  2014")> 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.0.0.0")> 
-<Assembly: AssemblyFileVersion("1.0.0.0")> 
+<Assembly: AssemblyVersion("0.1")> 
+<Assembly: AssemblyFileVersion("0.1")> 

Kill It With Fire!/Kill It With Fire!/Prompt.vb

@@ -1,3 +1,26 @@
 Public Class Prompt
 
+    Private Sub btn_yes_Click(sender As Object, e As EventArgs) Handles btn_yes.Click
+        If chk_all.Checked = True Then
+            promptResult = "YesAll"
+        Else
+            promptResult = "Yes"
+        End If
+
+        Me.Close()
+    End Sub
+
+    Private Sub btn_no_Click(sender As Object, e As EventArgs) Handles btn_no.Click
+        If chk_all.Checked = True Then
+            promptResult = "NoAll"
+        Else
+            promptResult = "No"
+        End If
+
+        Me.Close()
+    End Sub
+
+    Private Sub Prompt_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        panel_buttons.Location = New Point((Me.Width - panel_buttons.Width) / 2, panel_buttons.Location.Y)
+    End Sub
 End Class

Kill It With Fire!/Kill It With Fire!/kill.vb

@@ -1,4 +1,6 @@
 Module kill
+    Public promptResult As String
+
     Public Sub kill()
         Dim listProcesses(,) As String = _
         { _
@@ -24,15 +26,21 @@
 
                 For i = 0 To listProcesses.Length / 2 - 1
                     If Strings.StrComp(currentProcess, listProcesses(i, 0)) = 0 Then
-                        Dim r As MsgBoxResult
-                        r = MsgBox("Are you sure you want to Kill the following process? " & vbNewLine & currentProcess, MsgBoxStyle.YesNoCancel Or MsgBoxStyle.ApplicationModal Or MsgBoxStyle.MsgBoxSetForeground)
+                        Dim str As String = "Are you sure you want to kill " & p.ProcessName & "? "
+
+                        If promptResult <> "YesAll" Or promptResult <> "NoAll" Then
+                            Prompt.label_procCurrent.Text = str
+                            Prompt.label_procDetails.Text = "(" & currentProcess & ")"
+                            Prompt.ShowDialog()
+                        End If
 
-                        If r = MsgBoxResult.Cancel Then
+                        If promptResult = "No" Then
                             Exit For
-                        ElseIf r = MsgBoxResult.Yes Then
+                        ElseIf promptResult = "NoAll" Then
+                            Exit Sub
+                        Else '"Yes" or "YesAll"
                             p.Kill()
                             p.WaitForExit() ' // possibly with a timeout
-                            MsgBox("Done")
                         End If
                     End If
                 Next