Sub EnumerateToolbarButtons()

	Dim navBar As Object

	Dim iButton As Integer

	Dim button As Object

	Dim nButtons As Integer



	` The Navigation toolbar is the 2nd toolbar in the collection

	Set navBar = test_CPA.Toolbars.Item(2)

	If IsNull(navBar) = False Then

		nButtons = navBar.Buttons.Count

		For iButton = 1 To nButtons

			Set button = navBar.Buttons(iButton)

		Next iButton

	End If

End Sub

		

FUNCTION EnumerateToolbarButtons()

	OBJECT hPA = ObjectByName("CPA");

	OBJECT hToolbars = _ObjectGetProperty(hPA, "Toolbars");

	// The Navigation toolbar is the 2nd toolbar in the collection

	OBJECT hNavBar = _ObjectCallMethod(hToolbars, "get_Item", 2); 

	OBJECT hButtons;

	OBJECT hButton;

	INT nButtons;

	INT iButton;



	IF (ObjectIsValid(hNavBar)) THEN

		hButtons = _ObjectGetProperty(hNavBar, "Buttons");

		nButtons = _ObjectGetProperty(hButtons, "Count");



		FOR iButton = 1 TO nButtons DO

			hButton = _ObjectCallMethod(hButtons, "get_Item", iButton);

		END

	END

END

		

Note: Many collections have an ItemById property that allows you to get the item you want without having to enumerate through the collection to find the item you want.