Private Sub Application_Start (Nav As NavigationController)
'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.black
bt1.Initialize("bt_color",bt1.STYLE_SYSTEM)
bt2.Initialize("bt_color",bt2.STYLE_SYSTEM)
bt1.SetBorder(1,Colors.White,2)
bt2.SetBorder(1,Colors.White,2)
bt1.Text = "color"
bt2.Text = "color"
Page1.RootPanel.AddView(bt1,50,50,100,100)
Page1.RootPanel.AddView(bt2,50,150,100,100)
NavControl.ShowPage(Page1)
End Sub
Sub bt_color_Click
Private bt As Button = Sender
bt.Color = Colors.Blue
End Sub