PrivateSub Command1_Click()
WebBrowser1.Document.getElementsByName("sex")(2).Checked = TrueEnd Sub

PrivateSub Command2_Click()
WebBrowser1.Document.getElementsByName("sto")(2).Checked =True

End Sub

PrivateSub Command3_Click()
WebBrowser1.Document.getElementsByName("sto")(3).Checked =True

End Sub


PrivateSub Command4_Click()
WebBrowser1.Document.getElementsByName("sto")(0).Checked =True
End Sub

PrivateSub Form_Load()
WebBrowser1.Navigate "https://signup.live.com/signup.aspx?ru=http%3a%2f%2fmail.live.com%2f%3frru%3dinbox&wa=wsignin1.0&rpsnv=11&ct=1264506837&rver=6.0.5285.0&wp=MBI&wreply=http:%2F%2Fsn109w.snt109.mail.live.com%2Fdefault.aspx&lc=2052&id=64855&mkt=zh-cn&bk=1264506838&rollrs=12&lic=1"
End Sub

 

 

 

这是一个列表框的

 WebBrowser1.Document.getElementsByTagName("INPUT")("year_value").Value = 1234

 

忘记给你说单选按钮了，其实也是一样的，你拿到已选择的那个对象，给他的一个属性付"" 然后给腰选择的那个对象的这个checked属性付checked就ok了
 WebBrowser1.Document.getElementById("chkTerms").Checked = ""
 WebBrowser1.Document.getElementById("chkTerms1").Checked = "checked"

上面的参考

http://topic.csdn.net/u/20110924/01/8731b825-0b9b-4f28-a4a2-761cc98735b2.html

http://www.uipower.com/bbs/thread-193494-1-1.html