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 'Ãܱ£