vb 怎写改变HTML select值呢

select 下样表， <select name="us">
              <option value="aa" selected>aa </option>
            <option value="bb">bb </option>
            </select>

vb  Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.Length - 1
   
        If UCase(vDoc.All(i).tagName) = "INPUT" Or "select" Then
            Set vTag = vDoc.All(i)
          If UCase(vDoc.All(i).tagName) = "INPUT" Then
         
         
                Select Case vTag.Name
                    Case Name '用户名
                        vTag.Value = Trim(Text1.Text)
                    Case Password '密码
                        vTag.Value = Trim(Text2.Text)
                    Case Security '密保