i dont understand why you have so many pages
but from what i saw in page "force" you declare pg as page
and intialize it with event name "pg"
so why do you use
Sub Page1_KeyboardStateChanged (Height As Float)
you should use the same event name you gave your page when you intialize it
it should look like this:
Sub pg_KeyboardStateChanged (Height As Float)
the same for resize event
Private Sub pg_Resize(width As Int, Height As Int)
i have not tested your app since something is missing.