version 6.30 0 Form1 1 3 0 0 0 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 238 268 1 Door.dll 1 Door.dll 1 Pnl1Obj:Object Sub designer addform(Form1,"Form1","",220,220,220)@ addbutton(form1,Fixed3D,155,135,75,23,"Fixed3D",212,208,200,0,0,0,True,True,9)@ addbutton(form1,Single,80,135,75,23,"Single",212,208,200,0,0,0,True,True,9)@ addbutton(form1,None,5,135,75,23,"None",212,208,200,0,0,0,True,True,9)@ addpanel(form1,Panel1,45,25,135,80,255,255,255,True,True)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. End Sub Sub App_Start Form1.Show Pnl1Obj.New1(false) Pnl1Obj.FromControl("Panel1") End Sub Sub None_Click Pnl1Obj.SetProperty("BorderStyle",0) End Sub Sub Single_Click Pnl1Obj.SetProperty("BorderStyle",1) End Sub Sub Fixed3D_Click Pnl1Obj.SetProperty("BorderStyle",2) End Sub