Sub App_Start
Form1.show
flb.New1("Form1",B4PObject(1))
flb.FullScreen(cPPC) 'On the device it will remove the title bar
too
End Sub
Sub flb_Resize 'Fires when the user changes the screen orientation
if Form1.Width > Form1.Height then
msgbox("Landscape")
else
msgbox("Portrait")
end if
End Sub