ブラウザを更新しつつポップアップメニューを出すには？ (ID:117698)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 またまた勉強させて下さい。宜しくお願いします WebBrowser、ツリービュー、メニュー のコントロールを使って画面を作っています。 以下はサンプルソースです メニューはmenu をインデックス0として、 その子としてmenuSubをインデックス1として配置してます Private Sub Form_Load() Dim nodex As Object 'ツリーノード構築 Set nodex = TreeView1.Nodes.Add(, , "Root", "Root") Set nodex = TreeView1.Nodes.Add("Root", 1, "child", "child") 'ブラウザ初期化 WebBrowser1.Navigate2 "about:blank" End Sub Private Sub TreeView1_MouseUp(Button As Integer, _ Shift As Integer, x As Single, y As Single) '右クリックでポップアップメニュー If Button = vbRightButton Then PopupMenu menu(0), vbPopupMenuRightButton, , , menuSub(1) End If End Sub Private Sub menuSub_Click(Index As Integer) MsgBox "menu実行" End Sub Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node) 'ノードによりブラウザでURL分岐 If TreeView1.SelectedItem.Key = "Root" Then WebBrowser1.Navigate2 "http://google.co.jp" Else WebBrowser1.Navigate2 "http://yahoo.co.jp" End If End Sub で、これを実行してツリーのノードを右クリックすると MouseUpイベントと、NodeClickイベントが走ります やりたいことはブラウザを更新しつつポップアップを 出したいのですが、 MouseUp時に書いた処理のポップアップメニューがでません （ブラウザ更新の処理をコメントにするとポップアップでます） 推測ですが、IEなどのブラウザで右クリックでメニュー出したまま リロードすることはできないので、Navigate2実行時に ポップアップメニューが消される現象が起きているのではと思っています そこで質問なのですが、ツリービューのノードを右クリックして 「ブラウザを更新した後ポップアップを出したい」を 何らかの改訂や別なアプローチで実現できますでしょうか？ どうぞ宜しくお願い致します