Session.FrameTerminalWindow = False

Session.CursorBlinkRate = rcNoBlink

Dim currentTop As Integer

currentTop = Session.Top

Session.Top = currentTop + 20

With Session

 .Caption = "Check This Out"

End With