version
6.50
0
Form1
238
268

2
SystemStateDummy.dll
FormLib.dll
2
SystemState.dll
FormLib.dll
2
flb:FormLib
SysState:SystemState
0
Sub designer
addform(Form1,"Form1","",220,220,220)@
addtextbox(form1,TextBox1,50,40,75,22,"TextBox1",255,255,255,0,0,0,True,True,False,9)@
addmenuitem(form1,Menu1,"Quit",True,False)@
End Sub
@EndOfDesignText@
Sub Globals

End Sub

Sub App_Start
	Form1.Show
	flb.New1("form1",B4PObject(1))
	SysState.New1("DisplayRotation")
End Sub

Sub SysState_StateChanged 'This code will be fired when the orientation will chage.
	form1.Show
	textbox1.Text = SysState.CurrentValue 'will return 90 or 0 depending or the orientation.
End Sub

Sub Menu1_Click
	AppClose
End Sub