#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim test As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
test.Initialize("button")
test.SetLayout(0,0, 50%x, 50%y)
test.Enabled = True
test.Visible = True
test.Color = Colors.Yellow
test.RequestFocus
test.BringToFront
test.Invalidate
test.Text = "terfasf"
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub