Как выделить в браузере?

[Demonx]

На сайте есть:
<form method="POST" name="SMForm">
<select multiple="multiple" name="list[]" >
<option value="45557">222</option>
<option value="45556">3333</option>
</select>
Данные достаю Browser1.Document.Formname.obj.value
А вот как выделить все данные в list[]?
Browser1.Document.SMForm.....Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!

[SSecurity]

Код: Выделить всё

Dim Page As New HTMLDocument
Dim AAA As HTMLSelectElement
Set Page = WB.document
For Each AAA In Page.getElementsByName("list[]")
  AAA.Item(0).Selected = True
  AAA.Item(1).Selected = True
Next

[Demonx]

Спасибо, разобрался сам.

Код: Выделить всё

With Browser.Document.SMForm.elements(0)
                For n = 0 To .length - 1
                    .Options(n).Selected = True
                Next
End With

p.s. забыл про elements