応用

IEを最前面表示

APIのSetForegroundWindowを使って、IEを最前面表示します。

						Public Class Form1

							Private objIE As SHDocVw.InternetExplorer
							Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As IntPtr) As Boolean

							Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

								objIE = CreateObject("InternetExplorer.Application")
								objIE.Navigate("http://www.yahoo.co.jp")
								objIE.Visible = True

							End Sub

							Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

								'IEを最前面に
								SetForegroundWindow(objIE.HWND)

							End Sub

						End Class