Sub Globals
Dim Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Label1.Initialize("")
Activity.AddView(Label1, 0, 0, 100%x, 100%y)
Label1.TextSize = 16
Dim r As Reflector
Dim o As Object
r.Target = Label1
o = r.RunStaticMethod("android.text.method.LinkMovementMethod", "getInstance", Null, Null)
r.Target=Label1
r.RunMethod2("setMovementMethod", o, "android.text.method.MovementMethod")
Dim vText As String
vText = "<b>Please</b> go to <a href='http://www.google.de'>Google WebSite</a>!"
Label1.Text = r.RunStaticMethod("android.text.Html", "fromHtml", Array As String(vText), Array As String("java.lang.String"))
End Sub