用VB做网页的自动注册时,网页中的下拉式下列表如何自动选择呢?!

Question

用VB做网页的自动注册时,网页中的下拉式下列表如何自动选择呢?!
http://bjcgi.163.net/cgi-bin/tom_reg.cgi?rf=80000
网叶代码:
<td height="" >
                <table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td><font color="#CC0000">2.</font> 提示问题： 
                    <select name="question">
                  <option value="我最爱的人的名字">我最爱的人的名字</option>
                  <option value="我最喜欢的物品的名称">我最喜欢的物品的名称</option>
                  <option value="我最爱的电影名称">我最爱的电影名称</option>
                  <option value="中学的校名">中学的校名</option>
                  <option value="我最喜欢的歌曲？">我最喜欢的歌曲？</option>
                  <option value="我最喜欢的食物？">我最喜欢的食物？</option>
                  <option value="我的初恋日期？">我的初恋日期？</option>
                  <option value="我妈妈的生日？">我妈妈的生日？</option>
                </select></td>

Answer 1

If UCase(vDoc.All(i).tagName) = "select" Then
                Set vTag = vDoc.All(i)
                Select Case vTag.Name
                Case "question"
                vTag.Value = "我妈妈的生日?"
                End Select
这样吗?!

Answer 2

WebBrowser1.Document.All("question").Value = "我妈妈的生日?"