Sub App_Start
centx=form1.Width/2
centy=form1.Height/2
Form1.Show
flb.New1("form1",B4pobject(1))
addbutton("form1","btn",centx-25,centy,50,50,"close")
addevent("btn",click,"btn_click")
btnm.text="still"
gw.New1("form1",0,0,form1.width,form1.Height)
gw.DrawBackgroundImage(appPath & "\Backdrop.jpg")
gw.SetTransparentColor1(cBlack)
myspr.New2(AppPath & "\block.bmp",1,30,30,1)
myspr.X=100
myspr.Y=100
myspr.IsActive=true
gw.SpriteAdd(myspr.Value)
msgbox(appPath)
flb.FullScreen(cPPC)
End Sub