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.LoadLayout("1")
Page1.RootPanel.Color = Colors.White
NavControl.NavigationBarVisible = False
NavControl.ShowPage(Page1)
'Remove this to see what will happen - lower labels disappear
wn.Initialize(Page1.RootPanel, 0xFFFFCC00, 0xFFFFE37A, 0xFFFFF3C8, _
0xFFFF0022, 0xFFFFB000, 19, _
0xFFFF0022, 0xFFFFB000, 19, 10)
wn.HighLigher = wn.HighlighterCircle
wn.AddViewToExplain(Button1, "This is button 1. This is button 1. This is button 1. This is button 1. This is button 1. This is button 1. This is button 1. This is button 1. ",0,0,0,0)
wn.AddViewToExplain(Button2, "This is button 2. This is button 2. This is button 2. This is button 2. This is button 2. This is button 2. This is button 2. This is button 2. ",0,0,0,0)
wn.AddViewToExplain(Button3, "This is button 3. This is button 3. This is button 3. This is button 3. This is button 3. This is button 3. This is button 3. This is button 3. ",0,0,0,0)
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
wn.SetViewToExplainTextDimensions(Button1, 10%x, 10%y, 80%x, 80%y)
wn.SetDimensions(Width, Height)
wn.StartExplainingWhatsNew
End Sub