Example

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

Sub MakeButtonFile ()

 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