'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
' In B4XPage_Created
Dim card As B4XDaisyCard
card.Initialize(Me, "card")
card.AddToParent(Root, 16dip, 16dip, Root.Width - 32dip, 180dip)
card.Title = "Stock Count"
card.Variant = "neutral"
End Sub