Public Overrides Sub Uninstall(savedState As IDictionary) Try MyBase.Uninstall(savedState) Catch ex As Exception 'MessageBox.Show(ex.Message + vbCrLf & ex.StackTrace) End Try Dim path As String = Context.Parameters("TargetDir") ProcessBatch(path, "DelService.bat") End Sub