new browser window code?

[ST15XA]

I am displaying a banner in my prog. and I was wondering how I could force the browser to open any links in a new window?

Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
     Dim F As New Form1
     Set ppDisp = F.webbrowser1.Object
     Cancel = False
     DoEvents
     F.Show
End Sub

[ST15XA]

This code didnt work. I want a new window, in internet explorer, not my program, to open and display the site which the banner linked to.

[ST15XA]

This code didnt work. I want a new window, in internet explorer, not my program, to open and display the site which the banner linked to.

[glitch13]

'this in your general declarations:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'this in your event that you want to launch the browser from:

Call ShellExecute(hwnddesk, "Open", "www.YourURLHere.com", directory, 0&, vbNormal)

Or without API, simply use the standard Shell method and pass the website as an argument.

Shell "C:\Program Files\Internet Explorer\IExplore.exe http://www.excite.com", 1

[ST15XA]

Let me clarify what i want. I need code that would open a new internet explorer window when the user clicks the rotating banner on my form, and display which ever link was clicked. I NEED HELP!!!!!!

ST15XA, that will open a new window! Use Megatron's code, it will open a new window always.

Are you wanting to add the Microsoft Internet Controls as a reference so that you can use IE? It would take up resources, but...

What the customer wants, the customer gets