WEBBrowserのモーダル表示について

お世話になります。
WebBrowserコンポーネントを利用した独自ブラウザを作ってます。
新しいウィンドウを開くときに、モーダル表示したいのですが、うまくできません。何か良いアドバイスいただけますか？


Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
  Set objFrm = New Form1
  Set ppDisp = objFrm.WebBrowser1.Object
  objFrm.Show vbModal  
End Sub

上記のコードの場合、objFrm.Showでさらに別ウィンドウが表示されてしまいます。