< Public Function GetVersionInfo (MyApp As App, Optional IncludeProductName As Boolean = True) As String (?)
Comments'------------------------------------------------------------------------- 'Gets a string containing version information, given an application ' typically displayed in a message box from the help menu '-------------------------------------------------------------------------
Public Function GetVersionInfo (MyApp As App, Optional IncludeProductName As Boolean = True) As String
With MyApp
GetVersionInfo = CStr(.Major) & "." & CStr(.Minor) & "." & CStr(.Revision)
If IncludeProductName Then
GetVersionInfo = .ProductName & " version " & GetVersionInfo
End If
End With
End Function