UpperLeftX = 100 : UpperLeftY = 100
    stylebits #w1, _WS_POPUP, _WS_CAPTION + _WS_THICKFRAME, 0, 0
    open "" for graphics_nsb as #w1
    #w1 "down; fill blue; backcolor blue; color yellow"
    #w1 "place 80 140"
    #w1 "\Graphics with no title bar"
    #w1 "place 120 160"
    #w1 "\(method one)"

    UpperLeftX = 500 : UpperLeftY = 100
    graphicbox #w2.gb, 0, 0, WindowWidth, WindowHeight
    open "" for window_popup as #w2
    #w2.gb "down; fill blue; backcolor blue; color yellow"
    #w2.gb "place 80 140"
    #w2.gb "\Graphics with no title bar"
    #w2.gb "place 120 160"
    #w2.gb "\(method two)"

    wait 

dim dance$(23)
dance$(1)="Bachata"
dance$(2)="Cha-cha-cha"
dance$(3)="Cha-cha-cha latino"
dance$(4)="Disco-Fox"
dance$(5)="Jive"
dance$(6)="Kizomba"
dance$(7)="Lindy Hop"
dance$(8)="Mambo"
dance$(9)="Merengue"
dance$(10)="Paso-Doble"
dance$(11)="Quickstep"
dance$(12)="Rock'n Roll"
dance$(13)="Rumba"
dance$(14)="Salsa cubaine"
dance$(15)="Salsa portoricaine"
dance$(16)="Samba"
dance$(17)="Semba"
dance$(18)="Slow-Fox"
dance$(19)="Tango"
dance$(20)="Tango argentin"
dance$(21)="Valse anglaise"
dance$(22)="Valse viennoise"
dance$(23)="West Coast Swing"



    ' 800x600

    NOMAINWIN

    UpperLeftX   = 0
    UpperLeftY   = 0
    WindowWidth  = 800
    WindowHeight = 600
    GRAPHICBOX #Main.GBx1,0,0,800,600
    STYLEBITS #Main.GBx1,0,_WS_BORDER,0,0 'remove image's border
    OPEN "800x600" FOR window_popup AS #Main
    'get the handle of the graphicbox
    hWD=hwnd(#Main.GBx1)
    'get the handle of the DC
    CallDll #user32, "GetDC", hWD as ulong, hDC as ulong
    'set text to render with transparent background
    calldll #gdi32, "SetBkMode",hDC as ulong,_TRANSPARENT as long, re as long

[MAIN]
   #Main.GBx1 "font tahoma 40 bold"
   #Main.GBx1 "down; fill darkred ;color red ;place 750 50 ;\X"
   #Main.GBx1 "place 350 40 ; color yellow ;\up"
   #Main.GBx1 "place 300 600 ; color yellow ;\down"
   [sphere]
    xS =200
    yS =200
    for radius =150 to 0 step -1
        level$ =str$( int( 256 -256 *radius /150))
        c$ =level$ +" " +level$ +" " +level$ 
        #Main.GBx1 "color ";     c$
        #Main.GBx1 "backcolor "; c$
        #Main.GBx1 "place "; xS; " "; yS
        xS =xS -0.5
        yS =yS -0.2
        #Main.GBx1 "circlefilled "; radius
        for n= 1 to 360
            x=xS-(radius*sin(n/57.29577951))
            y=yS-(radius*cos(n/57.29577951))
            #Main.GBx1 "set ";x;" ";y
        next n
    next radius
   #Main.GBx1 "getbmp bak 0 0 800 600 ; discard ; drawbmp bak 0 0 ; flush bak"
   #Main.GBx1 "when leftButtonDown [MouseLeftButton]"
   pos=1
   WAIT


[MouseLeftButton]
   IF MouseX < 100 THEN #Main.GBx1 "discard ; redraw bak"
   IF MouseX > 100 THEN
        if MouseY<50 then pos=pos-(pos>1)*3
        if MouseY>550 then pos=pos+(pos<13)*3
        #Main.GBx1 "discard ; redraw bak"
        for n= 0 to 9
        if MouseY>50+n*50 and MouseY<100+n*50 then #Main.GBx1 "color green"
        #Main.GBx1 "place 250 ";100+n*50;";\";dance$(pos+n)
        #Main.GBx1 "color red"
        next

   end if
   IF MouseX > 750 and MouseY < 50 then close #Main : end
   WAIT