help with interface window

just recall i put my heart in to it .
and a lot of people help
oh yah you need to make the pic to go with it all just uping up code
ps button4 = mouse is in there that the one that get the window it moves up and down just not well
thx for the help
there is a line where i run the wallpaper but the wallpaper gets fucked with the window so i taken it out .
just need to fix the bugs thx 4 the help
extreme_black_ops@hotmail.com
^{Screen 20, 32, 4, 1

BLoad "shell1.bmp"
sleep 100
Bload "Shell2.bmp"
sleep 100
Bload "Shell3.bmp"
sleep 100
BLoad "Shell4.bmp"
sleep 100
Bload "Shell5.bmp"
sleep 100
Bload "Shell6.bmp"
sleep 100
Bload "Shell7.bmp"
sleep 100
Bload "Shell8.bmp"
sleep 100
BLoad "Shell9.bmp"
sleep 100
BLoad "shell1.bmp"
sleep 100
Bload "Shell2.bmp"
sleep 100
Bload "Shell3.bmp"
sleep 100
BLoad "Shell4.bmp"
sleep 100
Bload "Shell5.bmp"
sleep 100
Bload "Shell6.bmp"
sleep 100
Bload "Shell7.bmp"
sleep 100
Bload "Shell8.bmp"
sleep 100
BLoad "Shell9.bmp"
sleep 100

BLoad "Shell10.bmp"
print "loading mouse drivers"
BLoad "Shell10.bmp"
sleep 250

dim button as any ptr
dim button2 as any ptr
dim button3 as any ptr
dim button4 as any ptr

dim as integer mousex,mousey,mousebuttons,buttonposx,buttonposy, imgwidth, imgheight
dim as integer buttonsizex,buttonsizey,exittheloop
dim as integer buttonsizex2,buttonsizey2,buttonposx2,buttonposy2
dim as integer buttonsizex3,buttonsizey3,buttonposx3,buttonposy3
dim as integer buttonsizex4,buttonsizey4,buttonposx4,buttonposy4

Const True = 1
const false = not true

buttonsizex = 95
buttonsizey = 30
buttonposx = 10
buttonposy = 700

buttonsizex2 = 68
buttonsizey2 = 49
buttonposx2 = 955
buttonposy2 = 730

buttonsizex3 = 547
buttonsizey3 = 31
buttonposx3 = 10
buttonposy3 = 730

buttonsizex4 = 500
buttonsizey4 = 400
buttonposx4 = mousey
buttonposy4 = mousex

button = imagecreate(buttonsizex,buttonsizey)
bload "one.bmp",button
button2 = imagecreate(buttonsizex2,buttonsizey2)
bload "button.bmp",button2
button3 = imagecreate(buttonsizex3,buttonsizey3)
bload "bar.bmp",button3
button4 = imagecreate(buttonsizex4,buttonsizey4)
bload "window.bmp",button4
screenset 1,0

do

cls

''line wallpaper gose here needs to be fixed bug some where
put (buttonposx,buttonposy),button
put (buttonposx2,buttonposy2),button2
put (buttonposx3,buttonposy3),button3
put (buttonposx4,buttonposy4),button4

GetMouse mousex, mousey , , mousebuttons
PRINT USING "Mouse position: ###:### Buttons: "; mousex; mousey; '' this line show you Mouse position
''
''
''
if mousebuttons=1 then
if mousex>buttonposx and mousex<buttonposx+buttonsizex then
if mousey>buttonposy and mousey<buttonposy+buttonsizey then
' Put here what you want to happen when you
' press button 1.

Print "kife"
BLOAD "test2.bmp"

endif
endif

if mousex>buttonposx2 and mousex<buttonposx2+buttonsizex2 then
if mousey>buttonposy2 and mousey<buttonposy2+buttonsizey2 then
' Put here what you want to happen when you
' press button 2.

print time
Locate 20,500

endif
endif

if mousex>buttonposx3 and mousex<buttonposx3+buttonsizex3 then
if mousey>buttonposy3 and mousey<buttonposy3+buttonsizey3 then
' Put here what you want to happen when you
' press button 3.

print "bar1 works fine mint kife hahhahahhhahahha"
endif
endif

if mousex>buttonposx4 and mousex<buttonposx4+buttonsizex4 then
if mousey>buttonposy4 and mousey<buttonposy4+buttonsizey4 then
print"stillbeingclicked"''test........

buttonposy4 = mousex '

' Put here what you want to happen when you
' press button 4.

endif
endif
endif

sleep 1,1 ' Put ANY sleep in all your loops to prevent 100 % CPU usage!
screencopy

loop until exittheloop = True or Multikey(&h01) ' exit loop if you also press ESCAPE}