ActiveX - Hipervínculos

Private Sub Form_Load()

    'Añadimos el control RichTextBox al formulario'

    Set RichTextBox1 = Controls.Add("RICHTEXTBOXLib.RichTextBox.1", "RichTextBox1")

    'Configuramos el control RichTextBox'

    With RichTextBox1

        .Left = 0

        .Top = 0

        .Width = Me.ScaleWidth

        .Height = Me.ScaleHeight

        .Text = "Este es un texto con un hipervínculo: http://www.google.com"

        .DetectUrls = True

    End With

End Sub

Private Sub RichTextBox1_LinkClick(ByVal URL As String)

    'Este evento se dispara cuando se hace clic en un hipervínculo'

    MsgBox "Se ha hecho clic en el hipervínculo: " & URL

End Sub