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
Dim nRes As Long
nRes = ShellExecute(Me.hwnd, _
vbNullString, _
TuURL_Web, _
vbNullString, _
"c:\", 1)
__________________
José María Movilla Cuadrado
______________________