Sub Activity_Create(FirstTime As Boolean)
Dim b As Button
b.Initialize("")
SetContentDescription(b, "example")
End Sub
Sub SetContentDescription(v As View, Text As String)
Dim r As Reflector
r.Target = v
r.RunMethod2("setContentDescription", Text, "java.lang.CharSequence")
End Sub