Dim cs As CSBuilder
TextView1.Editable = False
cs.Initialize.Font(Font.CreateNew(25)).Append("Some ").Link("somevalue").Append("words").Pop
cs.Append(" are ").Link("anothervalue").Append("clickable").PopAll
TextView1.AttributedText = cs
Sub TextView1_LinkClick (URL As String)
Log(URL)
End Sub