调用另一个窗口里的sub问题

Question

如果从form1里面的command1按钮打开form2(form2.show)，在这里点击form2里面的cmd1正常可是在form1里面
Call form2.cmd1_click
就不对了
报错：实时错误‘91’，对象变量未设置以下是：form2.cmd1_click
Public Sub Command1_Click()
    Dim allCol     
    Dim TagName As String
    Dim allcount, i
    If Text1.Text <> "" Then
    If UCase(Left(Text1.Text, 4)) <> "HTTP" Then
    Text1.Text = "http://" & Text1.Text
    End If
    List1.Clear
    form2.WebBrowser1.Navigate2 Frmaddclass.Text1.Text 
    
===>错误停在这一行   Set allCol = form2.WebBrowser1.Document.All
---------------------
   
   
     allcount = allCol.Length
    For i = 0 To allcount - 1
    TagName = allCol.Item(i).TagName
    Next
  End If
End Sub

Answer 1

将form2中的cmd1_click用public定义就行了.public Sub cmd1_click()

Answer 2

你没有看见我上面的代码吗？我使用public定义的现在不是没有执行，而是执行到某点出错了

Answer 3

form2.WebBrowser1.Navigate2 Frmaddclass.Text1.Text 
在这句后面加一句do while form2.webbrowser1.busy = true 
   doevents
loop'原因你马上附值，它还没有打开网页呢！

Answer 4

啊，就是这个原因！！
我本来在form2里面
form2.WebBrowser1.Navigate2 Frmaddclass.Text1.Text 
是在另一个sub里面，用两个cmd控制的，所以没发现问题
现在call cmd1
    call cmd2
就出错了，呵呵