主题：[求助]WebBrowser控件点击页面中网址元素弹出错误提示

以下内容为程序代码:

1 Dim wb As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
2 Dim wc As WinForm.Control = e.Sender
3 If Typeof wc Is winform.button
4 Dim bt As WinForm.Button = wc
5 'MessageBox.show(bt.text)
6 Select Case bt.Text
7 Case "按钮名称1"
8 wb.Address = "http://地址1"
9 Case "按钮名称2"
10 wb.Address = "http://地址2"
11 Case "按钮名称3"
12 wb.Address = "http://地址3"
13 Case "按钮名称4"
14 wb.Address = "http://地址4"
15 End Select
16 End If