webbrowser如何打开flash按钮的连接呢?

Question

我用webbrowser打开flash,里头有个按钮,每次点击这个按钮都回发现下面过程会出现一个错误------------------------+
实时错误 "438"
对象不支持该属性和方法!
-------------------------Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
With WebBrowser1
Cancel = True
WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href  '这句出错,出现实时错误438，即不支持Flash按钮弹出新窗口
End With
End Sub
请教过路的大哥指点一下,怎么样才能既能打开flash按钮连接的新网页,又能让新网页在原来的webbrowser里头打开呢?

Answer 1

下面这个是 VB.NET的， 不知道如何转换为 VB6的， 类的接口实现， 扩展WEBBROWSER的， 谁帮忙转换一下， 先谢谢啦！
   Friend Public Class MyWebBrowser       Inherits WebBrowser       Private Function FindContainerControl() As ContainerControl           Dim cc As ContainerControl = Nothing           Dim control As Control = Me           Do While Not control Is Nothing              Dim tempCC As ContainerControl = TryCast(control, ContainerControl)              If Not tempCC Is Nothing Then                  cc = tempCC              End If              control = control.Parent           Loop           Return cc       End Function       Protected Overrides Sub WndProc(ByRef m As Message)           Select Case m.Msg              Case &H0201, &H0204, &H0207, &H0021 ' WM_LBUTTONDOWN WM_RBUTTONDOWN WM_MBUTTONDOWN WM_MOUSEACTIVATE from WinUser.h                  If (Not DesignMode) Then                     Dim cc As ContainerControl = FindContainerControl()                     If Not cc Is Nothing AndAlso Not cc.ActiveControl Is Me Then                         cc.Focus()                     End If                  End If                  DefWndProc(m)              Case Else                  MyBase.WndProc(m)           End Select       End Sub   End Class 

Answer 2

Dim control As Control = Me这个好像应该改为 Dim control As Control
set control  = Me