Sub Globals f=0 End Sub Sub App_Start flib.New1("form1",B4PObject(1)) Form1.show End Sub Sub Button1_Click If f=0 Then flib.FullScreen(true) f=1 Else flib.FullScreen(false) End If End Sub