AddChoice Method
Adds a new choice to the list of available choices for the current field. The field must be of type ListFieldChoice .
expression.AddChoice(text, Index)
expression Required. An expression that returns a ListFieldChoice object.
text Required. A String that represents the text that will appear in the drop-down list or beside a radio button.
Index Optional. A Long that represents the position of the choice within the list of choices.
Example
The following example adds two choices to a choice field named NewChoiceField in the first list of the active Web site. The new choices are SaleOption1, which will appear first in the list, and SaleOption2, which will appear second in the list. The relative positions of the choices are determined by the optional Index argument.
Sub AddChoice()
Dim objApp As FrontPage.Application
Dim objLstFlds As listFields
Dim objFldChoice As ListFieldChoice
Set objApp = FrontPage.Application
Set objLstFlds = objApp.ActiveWeb.Lists.Item(0).Fields
'Set a reference to the new field and
'add two new choices to the list.
Set objFldChoice = objLstFlds.Item("NewChoiceField")
objFldChoice.AddChoice text:="SaleOption1", Index:=1
objFldChoice.AddChoice text:="SaleOption2", Index:=2
End Sub