Private Sub Page_Created (Root1 As View)
Pages.AddPageAndCreate("passwordPage", passwordPage)
Pages.ShowPageAndRemovePreviousPages("passwordPage")
Dim myPath As Path
Dim xPath As NativePath
Private cv As Canvas
Private xcv As NativeCanvas
Public imageRect As Rect
Private MP As MainPage
Private ftf As FloatTextField
Public elements As OrderedMap
Private Switch1 As Switch
Public fontFamily As Font
Private Sub Page_Resize (Width As Int, Height As Int)
tools.Get(3).As(View).Visible = False