Sub btnSample_Click
Dim cs99 As CSBuilder
cs99.Initialize.Size(18).Append("Click to visit ").Append(CreateClickableWord("astrowin.org")).Append(".").PopAll
EditText1.Text = cs99
cs.EnableClickEvents(EditText1)
End Sub
Sub CreateClickableWord(Text As String) As CSBuilder
Dim cs98 As CSBuilder
Return cs98.Initialize.Underline.Color(Colors.RGB(0, 0, 255)).Clickable("word", Text).Append(Text).PopAll
End Sub
Sub Word_Click (Tag As Object)
Dim ph As PhoneIntents 'requires Phone library
StartActivity (ph.OpenBrowser("https://astrowin.org"))
End Sub