Public Sub VBProjectToHTMLFilesSample()

    'See also:
    '  VBProjectToHTMLFiles Function
    '  VBUtilitiesSample Subroutine

    Const strFn = "VBProjectToHTMLFilesSample"

    Dim strInVBP As String
    strInVBP = "\\Entisoft\Entisoft\Tools\ESTools.VBP"
    strInVBP = InputBox("Create HTML documentation files for Visual Basic Project: ({Esc} cancels.)", strFn, strInVBP)
    If Len(strInVBP) = 0 Then Exit Sub

    Dim strOutMain As String
    strOutMain = GetTempFileName(Null, strFn)
    strOutMain = InputBox("Write Main HTML File: (FILE WILL BE OVERWRITTEN; {Esc} cancels.)", strFn, strOutMain)
    If Len(strOutMain) = 0 Then Exit Sub

    Dim strOutContents As String
    strOutContents = GetTempFileName(Null, strFn)
    strOutContents = InputBox("Write HTML Contents File for HTML Help Systems: (FILE WILL BE OVERWRITTEN; {Esc} cancels.)", strFn, strOutContents)
    If Len(strOutContents) = 0 Then Exit Sub

    Dim strOutIndex As String
    strOutIndex = GetTempFileName(Null, strFn)
    strOutIndex = InputBox("Write HTML Index File for HTML Help Systems: (FILE WILL BE OVERWRITTEN; {Esc} cancels.)", strFn, strOutIndex)
    If Len(strOutIndex) = 0 Then Exit Sub

    Dim strOutHeaders As String
    strOutHeaders = GetTempFileName(Null, strFn)
    strOutHeaders = InputBox("Write Help Context IDs Include File: (FILE WILL BE OVERWRITTEN; {Esc} cancels.)", strFn, strOutHeaders)
    If Len(strOutHeaders) = 0 Then Exit Sub

    Dim strOutAlias As String
    strOutAlias = GetTempFileName(Null, strFn)
    strOutAlias = InputBox("Write Help File Aliases Include File for HTML Help Systems: (FILE WILL BE OVERWRITTEN; {Esc} cancels.)", strFn, strOutAlias)
    If Len(strOutAlias) = 0 Then Exit Sub

    Dim strHTMLFileExtension As String
    strHTMLFileExtension = InputBox("HTML file extension: ({Esc} cancels.)", strFn, ".HTM")
    If Len(strHTMLFileExtension) = 0 Then Exit Sub

    Dim strAddContents As String
    strAddContents = "Return to the <A HREF=""../estools.htm"">Entisoft Tools Page</A>."
    strAddContents = InputBox("Add to the Contents Page:", strFn, strAddContents)

    Dim strFlagPrefix As String
    strFlagPrefix = "''EntisoftTools VBProjectToHTMLFiles"
    strFlagPrefix = InputBox("Prefix for option flags embedded within the source code:", strFn, strFlagPrefix)

    MsgBox "Return = " & VBProjectToHTMLFiles( _
        vInVBP:=strInVBP, _
        vOutMain:=strOutMain, _
        vOutContents:=strOutContents, _
        vOutIndex:=strOutIndex, _
        vOutHeaders:=strOutHeaders, _
        vOutAlias:=strOutAlias, _
        vHTMLFileExtension:=strHTMLFileExtension, _
        vAddContents:=strAddContents, _
        vFlagPrefix:=strFlagPrefix) _
        & " (True means success; False means failure.)", vbInformation, strFn
End Sub