Como abrir una pagina web desde vb6 PREGUNTA!!!

[black_devil]

Mira yo tengo un código ej. para abrir una página web, como a modo ej. la página del autor de tu sistema

en un form, tenemos un label (lbllink)

declaramos esto en el form, en declaraciones...

Código:

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

en el evento click del label anotamos esto

Código:

Private Sub lbllink_Click()
Dim X
X = ShellExecute(Me.hwnd, "Open", "http://www.mipagina.cl", &O0, &O0, SW_NORMAL) 
'donde mipagina.cl colocas la url que quieras
End Sub

en el evento Form_MouseMove del form colocamos

Código:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbllink.ForeColor = vbBlue
'el label cambiara a color de azul cuando nos movamos en el form
End Sub

en el evento lbllink_MouseMove del label colocamos ...

Código:

Private Sub lbllink_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbllink.ForeColor = vbRed
'cuando pasemos el mouse por el link cambiará a rojo
End Sub

Espero te sirva, ya que funciona!!, lo tengo en un aplicación mía...

MYM CHILE