Sub Globals
Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Dim cs As CSBuilder
cs.Initialize.Size(30).Typeface(Typeface.SANS_SERIF)
cs.Append("FOOTBALL: ").Image(LoadBitmap(File.DirAssets, "brazil.png"), 60dip, 60dip, False).Append(CRLF)
cs.PopAll
Button1.Text = cs
End Sub