Crea un formulario y un label que se llame url donde le pones de caption el nombre de la pagina.
Option Explicit
#If Win32 Then
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
#Else
Private Declare Function ShellExecute Lib _
"shell.dll" _
(ByVal hwnd As Integer, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As Integer
#End If
Private Const SW_SHOWNORMAL = 1
Private Sub Label1_Click()
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub URL_Click()
Dim iret As Long
' open URL into the default internet browser
iret = ShellExecute(Me.hwnd, _
vbNullString, _
"http://www.lapaginaquequieras.es", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)
End Sub