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 Sub lblLink_Click(Index As Integer)
Dim sLink As String
If Index = 0 Then
'e-mail
sLink = "
[email protected]"
ShellExecute 0, vbNullString, "mailto:" & sLink, vbNullString, _
vbNullString, vbNormalFocus
Else
'web
sLink = "http://pagina.com"
ShellExecute 0, vbNullString, sLink, vbNullString, _
vbNullString, vbNormalFocus
End If
End Sub
Con esto, dos labels se vuelven en hipervinculos, pero se pueden aplicar de igual manera para abrir un documento con su programa predeterminado. espero te sirva o te de ideas.
Saluds