Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private Panel1 As B4XView
End Sub
Public Sub Initialize
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
End Sub
Private Sub Panel1_Click
Panel1.SetColorAnimated(100, xui.Color_Green, xui.Color_Blue)
Sleep(150)
Panel1.SetColorAnimated(100, xui.Color_Blue, xui.Color_Green)
End Sub