>Gracias por tu solución, Jose Manuel, de momento me sirve si no
>encuentro otra forma, lo que pasa es
>que quiero que se lanze pero con la página que tenga por defecto el
>navegador, sin tener yo que pasarle
>ninguna página, no se, accediendo quizás al registro de Windows para ver
>cual es el programa que abre
>las páginas html.
>
Prueba esto que acabo de recibir:

Dim FileName As String, Dummy As String
Dim BrowserExec As String * 255
Dim RetVal As Long
Dim FileNumber As Integer
Const SW_SHOWNORMAL = 1 ' Restores Window if Minimized or

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

Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As _
String) As Long
' ---------

BrowserExec = Space(255)
FileName = "C:\temphtm.HTM"

FileNumber = FreeFile() ' Get unused file number

Open FileName For Output As #FileNumber ' Create temp HTML file
  Write #FileNumber, " <\HTML>" ' Output text
Close #FileNumber ' Close file

' Then find the application associated with it.
  RetVal = FindExecutable(FileName, Dummy, BrowserExec)
  BrowserExec = Trim$(BrowserExec)
  ' If an application is found, launch it!
  If RetVal <= 32 Or IsEmpty(BrowserExec) Then ' Error

    Msgbox "Could not find a browser"

  Else
    RetVal = ShellExecute(frmMain.hwnd, "open", BrowserExec, _
      "www.myurl.com", Dummy, SW_SHOWNORMAL)
    If RetVal <= 32 Then ' Error
      Msgbox "Web Page not Opened"
    End If
  End If

Kill FileName ' delete temp HTML file


Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma
ICQ # : 10939566



Option Explicit

Private Declare Function FindExecutable Lib "shell32.dll" Alias _
    "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, _
    ByVal lpResult As String) As Long

Private Declare Function GetTempFileName Lib "kernel32" Alias _
    "GetTempFileNameA" (ByVal lpszPath As String, _
    ByVal lpPrefixString As String, ByVal wUnique As Long, _
    ByVal lpTempFileName As String) As Long

Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
    (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" _
    (ByVal lpFileName As String) As Long

Private Const MAX_PATH = 260

Private Function QuieroSaberQuienAbrePaginasWeb() As String
    Dim TempPath As String, TempFile As String, lRes As Long
    TempPath = Space(MAX_PATH)
    lRes = GetTempPath(MAX_PATH, TempPath)
    TempPath = Left(TempPath, lRes)
    If Not Right(TempPath, 1) = "\" Then TempPath = TempPath & "\"
    For lRes = 1 To 8
        Randomize
        TempFile = TempFile & CStr(Hex(Rnd * 16))
    Next
    TempFile = TempFile & ".htm"
    lRes = FreeFile
    Open TempPath & TempFile For Output As #lRes
    Print #lRes, "Hola Mundo"
    Close #lRes
    QuieroSaberQuienAbrePaginasWeb = Space(MAX_PATH)
    lRes = FindExecutable(TempFile, TempPath, QuieroSaberQuienAbrePaginasWeb)
    If lRes > 32 Then
        QuieroSaberQuienAbrePaginasWeb = Left(QuieroSaberQuienAbrePaginasWeb, InStr(QuieroSaberQuienAbrePaginasWeb, Chr(0)) - 1)
    Else
        QuieroSaberQuienAbrePaginasWeb = "Nadie"
    End If
    DeleteFile TempPath & TempFile
End Function