Sub Process_Globals
Dim Timer1 As Timer
End Sub
Sub Globals
Private Label1 As Label
Private Panel1 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("scrMenu")
If FirstTime=True Then
Timer1.Initialize(Timer1_Tick, 250)
Timer1.Enabled=False
End If
Timer1.Enabled=True
End Sub
Sub Timer1_Tick
Panel1.Color= Colors.RGB(Rnd(0, 255), Rnd(0, 255), Rnd(0, 255))
End Sub