IE NewWindow2 event: How do I know the NewWindow's URL?[resolved]

[jian2587]

NewWindow2 event
Upon firing of this event, a new IE window is to be created,
however, I am not able to get the URL of this to be created
window.
Anyone has idea 'bout this?

[jian2587]

Never mind. I've resolved it myself.

Dim WithEvents objExp As InternetExplorer
Dim WithEvents objNewExp As InternetExplorer
 
Private Sub objExp_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = New InternetExplorer
Set objNewExp = ppDisp
End Sub
 
Private Sub objNewExp_BeforeNavigate2(pDisp As Object,...URL As Variant,...)
MsgBox URL
objNewExp.Quit
Set objNewExp = Nothing
End Sub

I'm doin' this for a popup blocking program...