Private Sub Button1_Click
Dim cs As CSBuilder
cs.Initialize.Append("This is ").Link("mylink").Append("a clickable bit of text.").PopAll
Dim lbl As Label
lbl.Initialize("lblEvent")
lbl.AttributedText=cs
Root.AddView(lbl,200,200,300,200)
End Sub
Private Sub lblEvent_LinkClick(URL As String)
Log("URL = " & URL)
End Sub