theView = av.GetActiveDoc
' берем первую активную тему
theTheme = theView.GetActiveThemes.Get(0)
theFTab = theTheme.GetFTab
' вбираем поле, которое будем просматривать
aFields = theFTab.GetFields.Clone
' Clone - ОБЯЗАТЕЛЬНО
' удаляем поле шайп
aFields.Remove(0)
theField = MsgBox.Choice(aFields, "", "")
' для работы только с выделеннми записями,
' нужно работать с BitMap
' Читаем значения из таблицы в список
Massiv = {}
for each rec in theFTab
Massiv.Add(theFTab.ReturnValue(theField, rec))
end
theValue = MsgBox.ChoiceAsString(Massiv, "", "")
MsgBox.Info (theValue.AsString, "")
' Если нужно работать с диалогом, то там по другому
' Есть подобный пример в книге "ArcView Dialog Designer"