Example

The following procedure creates a file containing the commands associated with each button on the toolbar.

Sub CreateButtonFile ()

 With Session

 Dim buttons As Integer, thisButton As String, i As Integer

 Open "C:\Buttons.txt" For Output As 1

 buttons = .GetNumButtons

 For i = 1 To buttons

  thisButton = .GetButtonCommands(i)

  Print #1, thisButton

 Next i

 Close #1

 End With

End Sub