Heres the code, if that's what you mean:
Rem Project: 3PSC
Rem Created: Saturday, October 09, 2010
startBlue "***","******"
maximize window
rem make main window a gadget
mainWinGadget=createGadgetFromWindow(mainWindow())
rem SCREEN RESOLUTIONS
scr1w = 640
scr1h = 480
scr2w = 1024
scr2h = 768
scr3w = 1366
bd1 = 16
bd2 = 32
op1 = 0
op2 = 0
op3 = 0
set display mode scr3w,scr2h,bd2
`Global Variable Declarations for Gadgets
`----------------------------------------
global Gadget1
global Gadget2
global Gadget8
global Gadget10
global Gadget11
global Gadget12
global Gadget13
global Gadget15
global Gadget16
global Gadget3
global Gadget19
global Gadget14
global Gadget17
global Gadget7
global Gadget6
global Gadget5
global Gadget4
global Gadget9
global Gadget18
createUI()
camrot = 0.2
do
getEvent
rem choose screen res
KP$=Upper$(Inkey$())
rem editor code
rem camera control
if op2=0
make camera 1
op2=1
position camera 1,10,6,0
endif
rem cam resetting
if KP$="Y"
position camera 1,10,3,10
rotate camera 1,90,0,0
endif
if KP$="X"
rotate camera 1,0,0,0
position camera 1,10,2,0
endif
if KP$="Z"
position camera 1,5,2,5
rotate camera 1,0,90,0
endif
rem end cam resetting
rem cam move\rotate
if mouseclick()=2
rightCLK = 1
endif
if rightCLK = 1
hide mouse
if kp$="W"
move camera 1,0.1
endif
if kp$="S"
move camera 1,-0.1
endif
if kp$="A"
move camera left 1,0.1
endif
if kp$="D"
move camera right 1,0.1
endif
if kp$="V"
pitch camera up 1,0.2
endif
if kp$="B"
pitch camera down 1,0.2
endif
if kp$="G"
roll camera left 1,0.3
endif
if KP$="H"
roll camera right 1,0.3
endif
if kp$="R"
turn camera left 1,0.2
endif
if kp$="T"
turn camera right 1,0.2
endif
if kp$="Q"
move camera down 1,0.08
endif
if kp$="E"
move camera up 1,0.08
endif
endif
if mouseclick()=1 and rightCLK = 1
show mouse
rightCLK=0
endif
rem end cam move\rotate
rem end cam control
if gadget2=gadgetClicked
open file dialog return_string$,"Select Image to open","Bitmap (*.bmp)|*.bmp|Jpeg file(*.jpg)|*.jpg|Truevision Targa(*.tga)|*.tga|Portable Network Graphics(*.png)|*.png|"
ENDIF
LOOP
`Create User Interface
`---------------------
function createUI()
rem If Not GUI_CONSTANTS Then errorMessage "GUI Constants not defined. Please include gui.dba when you compile" : end
Gadget1=createPanel(0,25,100,690,0)
setPanelBorderStyle Gadget1,2
Gadget2=createButton(7,7,75,25,"Insert Model",0,Gadget1)
Gadget8=createRadioButton(7,247,75,20,"Show FPS",Gadget1)
Gadget10=createFrame(2,272,85,125,"Animations",Gadget1)
Gadget11=createButton(4,19,75,25,"Play",0,Gadget10)
Gadget12=createButton(4,54,75,25,"Pause",0,Gadget10)
Gadget13=createButton(4,89,75,25,"Stop",0,Gadget10)
Gadget15=createButton(7,32,75,25,"Insert Texture",0,Gadget1)
Gadget16=createFrame(2,67,80,174,".",Gadget1)
Gadget3=createTrackBar(-6,34,75,25,0,Gadget16)
Gadget19=createLabel(9,58,50,20,"Rotate(X)",Gadget16)
Gadget14=createTrackBar(-6,73,75,25,0,Gadget16)
Gadget17=createLabel(9,19,55,15,"Rotate(Y)",Gadget16)
Gadget7=createTrackBar(-6,114,75,25,0,Gadget16)
Gadget6=createLabel(9,99,50,20,"Rotate (Z)",Gadget16)
Gadget5=createToolbar(0)
Gadget4=createProgressBar(105,695,1250,10,0)
Gadget9=createTrackBar(115,655,1235,35,0,0)
Gadget18=createPanel(100,640,1265,75,0)
setPanelBorderStyle Gadget18,2
sendtoback Gadget18
make matrix 1,20,20,20,20
endfunction
`Create Main Menu
`----------------
function createMainMenu()
menu=createMenu(0)
endfunction
