diff --git a/src/Argu/ArgumentParser.fs b/src/Argu/ArgumentParser.fs
index 954be434..ebf693d2 100644
--- a/src/Argu/ArgumentParser.fs
+++ b/src/Argu/ArgumentParser.fs
@@ -115,6 +115,9 @@ and [<Sealed; NoEquality; NoComparison; AutoSerializable(false)>]
             | _ -> argInfoWithCheck.Value
         new ArgumentParser<'Template>(argInfo, programName, helpTextMessage, usageStringCharacterWidth, errorHandler)
 
+    /// <summary>The Program Name, as used when rendering help messages. Can be overridden via the <c>programName</c> constructor argument.</summary>
+    member val ProgramName = _programName
+
     /// <summary>Force a check of the discriminated union structure.</summary>
     static member CheckStructure() =
         argInfoWithCheck.Value |> ignore
@@ -284,4 +287,4 @@ module ArgumentParserUtils =
 
     /// gets the F# union tag representation of given argument instance
     let tagOf (input : 'Template) : int =
-        ArgumentParser.Create<'Template>().GetTag input
\ No newline at end of file
+        ArgumentParser.Create<'Template>().GetTag input