如何取消Active控件初始化提示

我在一个PPT中引用了一个WEBBROWSER的控件，并用了一段代码在其打开时就打个某个网页，现在每次打开这个PPT，就会出现Active控件初始化提示，请问这个如何取消，

代码是这样的：
Dim strURL As String
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel = True
    WebBrowser1.Navigate strURL
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    strURL = Text
End Sub
Sub OnSlideShowPageChange()
If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then
WebBrowser1.Navigate2 ""
End If
End Sub
Private Sub CommandButton1_Click()
WebBrowser1.Navigate2 ""
End Sub
Private Sub CommandButton2_Click()
WebBrowser1.Navigate2 ""
End Sub
Private Sub CommandButton3_Click()
WebBrowser1.GoBack
End Sub

Private Sub CommandButton4_Click()
WebBrowser1.GoForward
End Sub

Private Sub CommandButton5_Click()
WebBrowser1.Refresh
End Sub


网上有关于这个问题的解决办法，可是是我没试成功
贴子原址如下，供参考


[ 本帖最后由 shs9102 于 2009-9-4 15:08 编辑 ]