JUAN RAMON
25 de Marzo del 2006

QUISIERA SABER DE QUE FORMA PUEDO PONERHIPERVINCULOS EN VISUAL BASIC 6.0

LLE
25 de Marzo del 2006

Una forma con el Api: poné un Label1:

Option Explicit

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
Private Const SW_SHOWNORMAL = 1

Private Sub Label1_Click()
ShellExecute Me.hwnd, vbNullString, Label1.Caption, vbNullString, "C:\", SW_SHOWNORMAL
End Sub


Private Sub Form_Load()
With Label1
.Caption = "www.google.com"
.AutoSize = True
.MousePointer = 99
.ForeColor = vbBlue
\'.MouseIcon = \'acá poner el icono para la mano
End With

End Sub

Saludos

www.recursosvisualbasic.com.ar