Caption Property

expression.Caption

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

The following example demonstrates how a subroutine could temporarily change the Publisher window caption and then restore it afterwards.

Sub WindowCaption()
    Dim strCaption As String

    strCaption = ActiveWindow.Caption

    ActiveWindow.Caption = "Custom process--please wait..."

    ' Run custom code here.

    ActiveWindow.Caption = strCaption
End Sub