that code is VB6...
try something like this
VB Code:
Private Sub wb_NewWindow2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NewWindow2Event) Handles WebBrowser1.NewWindow2 Try e.ppDisp = frmPopupWindow.wb.Application frmPopupWindow.Show() Catch ex As Exception MessageBox.Show("Error occured opening popup window") End Try End Sub
where frmPopupWindow is the form that will be the popup window form, and it has a webbrowser control on it called "wb"




Reply With Quote