WebListBox Property

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