Sub Process_Globals
'These variables can be accessed from all modules.
Dim visibile As Boolean
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("Layout1")
If FirstTime Then
visibile = False
End If
'Panel Trasparent
panel1.Initialize("")
Activity.AddView(panel1,0, 0, 100%x, 100%y)
StartService(servizio)
Activity.Finish
End Sub
Sub Activity_Resume
If visibile = True Then panel1.Color = Colors.ARGB(0, 255,12,345 )
End Sub