Sub Ch6_GetButtonImages()

	Dim Button As AcadToolbarItem

	Dim Toolbar0 As AcadToolbar

	Dim MenuGroup0 As AcadMenuGroup

	Dim SmallButtonName As String

	Dim LargeButtonName As String

	Dim msg As String

	Dim ButtonType As String

	' Get the first toolbar in the first menu group

	Set MenuGroup0 = ThisDrawing.Application. _

								 MenuGroups.Item(0)

	Set Toolbar0 = MenuGroup0.Toolbars.Item(0)

	' Clear the string variables

	SmallButtonName = ""

	LargeButtonName = ""

	' Create a header for the message box and

	' display the toolbar to be queried

	msg = "Toolbar: " + Toolbar0.Name + vbCrLf

	Toolbar0.Visible = True

	' Iterate through the toolbar and collect data

	' for each button in the toolbar. If the toolbar is

	' a normal button or a flyout, collect the small

	' and large button names for the button.

	For Each Button In Toolbar0

		ButtonType = Choose(Button.Type + 1, "Button", _

						"Separator", "Control", "Flyout")

		msg = msg & ButtonType & ":   "

		If Button.Type = acToolbarButton Or _

					 Button.Type = acToolbarFlyout Then

			Button.GetBitmaps SmallButtonName, _

							LargeButtonName

			msg = msg + SmallButtonName + ", " _

					+ LargeButtonName

		End If

		msg = msg + vbCrLf

	Next Button

	' Display the results

	MsgBox msg

End Sub