version 5.50 0 Main 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 238 268 0 0 0 Sub designer addform(Main,"Form1","",211,211,211)@ End Sub @EndOfDesignText@Sub Globals End Sub Sub App_Start main.Color=cwhite AddPanel(Main,"pnl1",10,10,200,100) AddPanel(Main,"pnl2",0,0,0,0) AddButton(Main,"btn1",0,0,0,0) AddButton(Main,"btn2",0,0,0,0) AddButton(Main,"btn3",0,0,0,0) AddLabel(Main,"lbl1",0,0,0,0) AddLabel(Main,"lbl2",0,0,0,0) AddTextBox(Main,"txt1",0,0,0,0) AddEvent("btn1", Click, "x_click") AddEvent("btn2", Click, "clear_click") AddEvent("btn3", Click, "ok_click") pnl1.color=cBlue lbl1.color=cBlue pnl2.color =cWhite lbl2.color=cWhite btn1.text="X" btn2.text="Clear" btn3.text="O.K." lbl1.text="InputPanel Caption" lbl2.text="InputPanel Question Field" Inputpanel Main.show End Sub Sub Inputpanel L=pnl1.left T=pnl1.top H=pnl1.height W=pnl1.width pnl1.top=T pnl1.left=L pnl1.width=W pnl1.heigth=H pnl1.bringToFront pnl2.top=T+24 pnl2.left=L+2 pnl2.width= W-4 pnl2.height=H-26 pnl2.bringToFront btn1.top=T+2 btn1.left=L+W-22 btn1.height= 20 btn1.width=20 btn1.bringToFront lbl1.top=T+2 lbl1.left=L+2 lbl1.width=W-24 lbl1.height =20 lbl1.bringToFront lbl2.top=T+26 lbl2.left=L+4 lbl2.width=W-8 lbl2.height =pnl2.height/3 lbl2.bringToFront txt1.top=T+26+pnl2.height/3 txt1.left=L+4 txt1.width=W-8 txt1.height =pnl2.height/3 txt1.bringToFront btn2.top=T+28+(2*pnl2.height/3) btn2.left=L+4 btn2.width=W-6-(pnl2.width /2)-2 btn2.height =20 btn2.bringToFront btn3.top=T+28+(2*pnl2.height/3) btn3.left=L+6+btn2.width+2 btn3.width=W-6-(pnl2.width /2)-2 btn3.height =20 btn3.bringToFront txt1.focus End Sub Sub x_click pnl1.dispose pnl2.dispose btn1.dispose btn2.dispose btn3.dispose lbl1.dispose lbl2.dispose txt1.dispose End Sub Sub clear_click txt1.text="" txt1.focus End Sub Sub ok_click Msgbox(txt1.text) x_click End Sub