Hipervinculo

[manumaf]

Hola quisiera saber como colocar un texto con un hipervinculo.


Osea yo tengo todo el formulario y abajo de todo quiero que apreseca un link a mi pagina.



Como ago?


Muchas gracias de antemano

[seba123neo]

Hola,un ejemplo simple con un label...

Código:

Private Sub Form_Load()
With Label1
.Caption = "www.google.com.ar"
.AutoSize = True
.ForeColor = vbBlue
End With
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontBold = False
End Sub

Private Sub Label1_Click()
Shell "explorer.exe http://" & Label1.Caption, vbMaximizedFocus
Label1.ForeColor = &HC11EA5
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontBold = True
End Sub

yo use shell para abrir la pagina ,pero podes usar mejor la api llamada ShellExecute,que te abre la pagina de internet con el navegador predeterminado,o sea si tenes el firefox como predeterminado,te lo abre con este....

saludos.

[manumaf]

Muchisimas gracias. :)