Option Explicit
 
Private Sub Form_Load()
   SetLabelLink Me.Label1, "www.google.com"
   SetLabelLink Me.Label2, "www.yahoo.com"
End Sub
 
Private Sub SetLabelLink(po_Label As XtremeSuiteControls.Label, ByVal p_Url As String)
   If Not po_Label.EnableMarkup Then
      Err.Raise 5, , "Label must have the EnableMarkup property set to TRUE in the IDE in order for link clicking to work!"
   End If
   
   p_Url = Trim$(EncodePlainTextForXaml(p_Url)) ' Make sure we aren't using any characters that will break our XAML parsing
   
   If InStr(1, p_Url, "://") = 0 Then
      ' Make sure we have a protocol in front
      p_Url = "http://" & p_Url
   End If
   
   With po_Label
      ' Add the hyperlink
      .Caption = "<TextBlock><Hyperlink Click='LinkClicked'>" & p_Url & "</Hyperlink></TextBlock>"
      .MarkupContext.SetHandler Me
   End With
End Sub
 
Public Sub LinkClicked(po_Sender As Object, po_Args As Object)
   MsgBox "Navigate to: " & po_Sender.Inlines.Item(0).Text  ' Navigate to the page
End Sub
 
Public Function EncodePlainTextForXaml(ByVal p_PlainText As String) As String
   ' Convert illegal characters to XAML entities
   p_PlainText = Replace$(p_PlainText, "&", "&amp;")
   p_PlainText = Replace$(p_PlainText, "<", "&lt;")
   p_PlainText = Replace$(p_PlainText, ">", "&gt;")
   p_PlainText = Replace$(p_PlainText, "'", "&apos;")
   p_PlainText = Replace$(p_PlainText, """", "&quot;")
   
   ' Expand VB newline characters to XAML <LineBreak/> tags
   p_PlainText = Replace$(p_PlainText, vbNewLine, "<LineBreak/>")
   
   EncodePlainTextForXaml = p_PlainText
End Function