I have created my own web browser in vb6 for an intranet project but it was opening links with the _black in internet explorer, so i added the code below to get it to open in a new custom browser window...
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmWB As Browser
Set frmWB = New Browser
frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True
The problem: the new window that is opening, the form will resize but the webbroser inside will not like on the parent window. I am using the code below to resize webbrowser1 to the size i want in the form.
Private Sub form_resize()
laststate = Browser.WindowState
If Browser.WindowState <> vbMinimized Then
WebBrowser1.Height = Browser.Height - 1300
WebBrowser1.Width = Browser.Width - 300