This article contains an Avenue script that creates a point theme legend using icons, found in the Icon Manager, as markers symbols.
'-- Script for accessing the icons from ArcView's Icon Manager
'-- The following line identifies the icon in the Icon Manager
'-- that will be returned. In this case the 22nd icon in the list.
'-- Change this number to the icon you would like to use to
'-- symbolize your theme.
anIcon = IconMgr.GetIcons.Get(21)
aSym = BasicMarker.Make
theView = av.getactivedoc
theTheme = theView.getactivethemes.get(0)
theLegend = theTheme.GetLegend
theSymList = theLegend.GetSymbols