Private Sub object_NewWindow2( _ ByRef ppDisp As Object, _ ByRef Cancel As Boolean)