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

かっつん 2004-11-19 10:15:58 No: 86754

お世話になります。
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でさらに別ウィンドウが表示されてしまいます。