Add better exception handling

ApplicationEvents.vb

@@ -1,4 +1,5 @@
 Imports Microsoft.Win32
+Imports Microsoft.VisualBasic.ControlChars
 
 Namespace My
     ' Los siguientes eventos están disponibles para MyApplication:
@@ -16,6 +17,18 @@ Namespace My
             AddHandler Microsoft.Win32.SystemEvents.DisplaySettingsChanged, AddressOf SysEvts_DisplaySettingsChanged
         End Sub
 
+        Private Sub CatchEmAll(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
+            ExceptionForm.ErrorText.Text = e.Exception.ToString() & CrLf & CrLf &
+                                           "Error Message: " & e.Exception.Message & CrLf & CrLf &
+                                           "Error Code (HRESULT): " & e.Exception.HResult
+            ExceptionForm.ShowDialog()
+            If ExceptionForm.DialogResult = DialogResult.OK Then
+                e.ExitApplication = False
+            ElseIf ExceptionForm.DialogResult = DialogResult.Cancel Then
+                e.ExitApplication = True
+            End If
+        End Sub
+
         Private Sub SysEvts_UserPreferenceChanged(sender As Object, e As Microsoft.Win32.UserPreferenceChangedEventArgs)
             ' Do nothing
         End Sub

DISMTools.vbproj

@@ -192,6 +192,12 @@
     <Compile Include="Panels\DoWork\ProgressPanel.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Panels\Exceptions\ExceptionForm.Designer.vb">
+      <DependentUpon>ExceptionForm.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Panels\Exceptions\ExceptionForm.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Panels\Exe_Ops\BGProcs\BGProcsAdvSettings.Designer.vb">
       <DependentUpon>BGProcsAdvSettings.vb</DependentUpon>
     </Compile>
@@ -719,6 +725,9 @@
     <EmbeddedResource Include="Panels\DoWork\ProgressPanel.resx">
       <DependentUpon>ProgressPanel.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Panels\Exceptions\ExceptionForm.resx">
+      <DependentUpon>ExceptionForm.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Panels\Exe_Ops\BGProcs\BGProcsAdvSettings.resx">
       <DependentUpon>BGProcsAdvSettings.vb</DependentUpon>
     </EmbeddedResource>
@@ -1248,6 +1257,7 @@
     <None Include="Resources\color_schemes\CS_Ops_Green.png" />
     <None Include="Resources\color_schemes\CS_ProgressPanel_Blue.png" />
     <None Include="Resources\color_schemes\CS_ProgressPanel_Green.png" />
+    <None Include="Resources\error_32px.png" />
     <Content Include="ThemeVS2012\Resources\Dockindicator_PaneDiamond_Hotspot.png" />
     <Content Include="ThemeVS2012\Resources\DockIndicator_PaneDiamond_HotspotIndex.png" />
     <Content Include="ThemeVS2012\Resources\MaskArrowBottom.png" />

My Project/Resources.resx

@@ -1206,4 +1206,7 @@ New features:
   <data name="CS_ProgressPanel_Green" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\color_schemes\CS_ProgressPanel_Green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="error_32px" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\error_32px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>