WebListBox Property
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
Returns the WebListBox object associated with the specified shape.
expression.WebListBox
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example creates a new Web list box and adds several items to it. Note that when initially created, a Web list box control contains three default items. This example includes a loop that deletes the default list box items before adding new items.
Dim shpNew As Shape
Dim wlbTemp As WebListBox
Dim intCount As Integer
Set shpNew = ActiveDocument.Pages(1).Shapes _
.AddWebControl(Type:=pbWebControlListBox, Left:=100, _
Top:=150, Width:=300, Height:=72)
Set wlbTemp = shpNew.Web ListBox
With wlbTemp
.MultiSelect = msoFalse
With .ListBoxItems
For intCount = 1 To .Count
.Delete (1)
Next intCount
.AddItem Item:="Green"
.AddItem Item:="Purple"
.AddItem Item:="Red"
.AddItem Item:="Black"
End With
End With