两个关于WebBrowser的问题

用控件数组
要新打开一个时,就新建一个
将visible属性设置为false,就看不到了
在窗体上,添加一个webbrowser控件,一个命令按钮,一个文本框,设置webbrowser控件的index属性为0,Visible属性为False,运行后,在文本框中输入网址后,点命令按钮:
Dim nIndex as Integer
Private Sub Command1_Click()
nIndex = nIndex + 1
Load WebBrowser1(nIndex)
WebBrowser1(nIndex).Navigate Text1.Text
End Sub

N个页面，写个函数就好了

把它的改成hide,和show相对.如: form1.hide

我有点不知道你这样做的目的是什么；揣测一下你的意图，不用控件数组，而重新建立一个新的窗口，实现打开N个网页的功能
代码：

Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Navigate (Text1.Text)
Me.MousePointer = 11
Dim frmWB As Form1
Set frmWB = New Form1
frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True
End Sub

Private Sub Command2_Click()'为了有点实用性，再建一个command2，点击可把在内存中打开的网页显示出来
WebBrowser1.Visible = True
End Sub

Private Sub Form_Load()
WebBrowser1.Visible = False '这样就是隐藏WebB