呼出元のFormを最前面に表示するには？ (ID:112354)

名前

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

本文 メインのフォームからボタンのクリックでCreateObjectを使用してIEを起動します。この時IEは最前面に表示させます。裏に隠れたメインフォーム（呼出元のフォーム）をクリックしたら、このメインフォームを最前面に表示したいのですが、うまくいきません。（Form_Clickイベントが取れません） 下記にボタンクリック時のソースコードを記載しますので、解決方法をお分かりの方はご伝授ください。よろしくおねがいします。(VB6.0 SP5) 'API宣言 Public Declare Function SetWindowPos _ Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal X As Long, ByVal Y As Long, ByVal Cx As Long, _ ByVal Cy As Long, ByVal wFlags As Long) As Long Public Const HWND_TOPMOST = -1 Public Const SWP_SHOWWINDOW = &H40 'ボタンクリック時の処理 Private Sub Command1_Click() Set ieApp = CreateObject("InternetExplorer.application") ieApp.Navigate "http://www.yahoo.co.jp" SetWindowPos ieApp.hwnd, HWND_TOPMOST, _ ieApp.Left, ieApp.Top, ieApp.Width, _ ieApp.Height, SWP_SHOWWINDOW Set ieApp = Nothing End Sub