>>444
Option Explicit

Private Declare Function ShellExecute Lib _
"shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub cmdGO_Click()
'URLをブラウザで開く

ShellExecute Me.hwnd, "Open", "http://www.yahoo.co.jp", _
vbNullString, App.Path, 1

End Sub

こんなのですが、URL起動しますが、閉じ方が解りません