给你个例子Private Sub Combo1_Click() WebBrowser1.Navigate Combo1.List(Combo1.ListIndex) End SubPrivate Sub Form_Load() Combo1.AddItem "http://video.baidu.com/v?ct=301989888&rn=20&pn=0&db=0&s=0&fbl=1024&word=%B5%D8%B5%C0%D5%BD" Combo1.AddItem "http://zhidao.baidu.com/q?word=%CC%EC%C9%BD&ct=17&pn=0&tn=ikaslist&rn=10&lm=0&fr=search" Combo1.AddItem "http://tieba.baidu.com/f?ct=&tn=&rn=&pn=&lm=&kw=%BB%A8&rs2=0&myselectvalue=1&word=%BB%A8&submit=%B0%D9%B6%C8%D2%BB%CF%C2&tb=on" End Sub
WebBrowser1.Navigate Combo1.List(Combo1.ListIndex)
End SubPrivate Sub Form_Load()
Combo1.AddItem "http://video.baidu.com/v?ct=301989888&rn=20&pn=0&db=0&s=0&fbl=1024&word=%B5%D8%B5%C0%D5%BD"
Combo1.AddItem "http://zhidao.baidu.com/q?word=%CC%EC%C9%BD&ct=17&pn=0&tn=ikaslist&rn=10&lm=0&fr=search"
Combo1.AddItem "http://tieba.baidu.com/f?ct=&tn=&rn=&pn=&lm=&kw=%BB%A8&rs2=0&myselectvalue=1&word=%BB%A8&submit=%B0%D9%B6%C8%D2%BB%CF%C2&tb=on"
End Sub