求助：实时错误28溢出堆栈空间

[ssgdx]

第一次在这里发帖，想各位前辈请教，我最近碰到这个问题：实时错误“28”，溢出堆栈空间
我一直没发现到底是怎么回事，请大家帮帮忙，谢谢！
以下是代码（标记红色的部分是报错后调试光标停在的位置）：

Private Sub Command1_Click()
Me.WebBrowser1.Navigate2 Text1.Text
End Sub

Private Sub Command2_Click()
Me.WebBrowser1.Navigate2 "www.baidu.com"
End Sub

Private Sub Command3_Click()
Me.WebBrowser1.GoForward
End Sub

Private Sub Command4_Click()
Me.WebBrowser1.Stop
End Sub

Private Sub Command5_Click()
Me.WebBrowser1.GoBack
End Sub

Private Sub Command6_Click()
Me.WebBrowser1.Refresh
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
WebBrowser1.Navigate2 URL
Cancel = True
End Sub

Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
If Command = 2 Then Command5.Enabled = Enable
If Command = 1 Then Command3.Enabled = Enable
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
ppDisp = WebBrowser2.Object
End Sub

[脆皮大雪糕]

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) WebBrowser1.Navigate2 URL Cancel = True End Sub 这段是不是搞死了？ 在navigate前又navigate一下？于是再次出发beforevavigat事件。然后就没完没了