リストボックスの値をコレクに全て格納してから選択するには？
お世話になります。
リストボックスの値をコレクションに全て格納してからoption値で選択する内容をきめようと思っています。ですが僕のコードでは For i = 0 To WebBrowser1.Document.Forms("form1").DomElement("options").Length - 1
でエラーがでてしまい、選択できません。どこが間違っているのでしょうか？教えてください。
フォームにはwebbrowser１つとコマンドボタン１つです。
<html>
<body>
<FORM NAME="form1"><SELECT size="1" name="sel1" >
<OPTION value="21">データ１</OPTION>
<OPTION value="22">データ２</OPTION>
<OPTION value="23">データ３</OPTION>
<OPTION value="24">データ４</OPTION>
<OPTION value="25">データ５</OPTION>
<OPTION value="26">データ６</OPTION>
</SELECT></FORM></body>
</html>
--------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim colOpt As Collection
WebBrowser1.Navigate("上のHTML")
colOpt = New Collection
For i = 0 To WebBrowser1.Document.Forms("form1").DomElement("options").Length - 1
colOpt.Add(i, WebBrowser1.Document.Forms("form1").DomElement("Options(i)").Value)
Next i
WebBrowser1.Document.Forms("form1").DomElement("Options( colOpt('22'))").Selected = True
TextBox1.Text = WebBrowser1.Document.Forms("form1").DomElement("Options( colOpt('22'))").Selected
End Sub
補足
ありがとうございます。Form(0)で試していました。Forms(0)なのですね。まだVB始めたばかりだったのでとても嬉しく感じました。