Sub process_Globals
End Sub
Sub Globals
Dim panel1 As Panel
Dim BN As Boolean
End Sub
Sub Activity_Create(FirstTime As Boolean)
panel1.Initialize("panel1")
Activity.AddView (panel1,0,0,100%x,100%y)
panel1.Color = Colors.White
BN = False
End Sub
Sub Activity_Resume
End Sub
Sub Activity_pause (UserClosed As Boolean)
End Sub
Sub panel1_click
If BN = False Then
panel1.Color = Colors.white
BN = True
Else
panel1.Color = Colors.Black
BN = False
End If
End Sub