「たとえば僕が持ってる2台の携帯電話は、どちらも『悠の携帯』」
'サンプル2.3_最前面表示
Public Sub
showForeground()
'IEを格納する変数(オブジェクト型)
Dim ie As Object
'IEを取得
Set ie = getIE("Google")
'最小化されている場合は元に戻す(9=RESTORE:最小化前の状態)
If IsIconic(ie.hWnd) Then
ShowWindowAsync ie.hWnd, &H9
End If
'最前面に表示
SetForegroundWindow (ie.hWnd)
End Sub