枠のないウィンドウなら
bgscr 0,270,200 //270は縦の大きさ、200は横の大きさ
だけでできます。
もし自作ウィンドウを作るなら
bgscr 0,270,200 : title "Windows8風"
onclick gosub *move
buffer 1
font "MS UI Gothic", 16, 1
value_color = $FF, $FF, $FF
gosub *draw
bgscr 0,270,200 :
onclick gosub *move
objimage 1, 0, 0, 0, 30, 0, 60
objsize 40,20
pos 225,0 :button "",*owari
mx=5 : my=30 : px=3 : py=3
*main
redraw 0
color 0,150,255 : boxf 0,0,270,200
color 255,255,255 : boxf 5,30,264,194
color 0,0,0 : pos 5,5 : mes " Windows8風"
pos 5,30
mes ""
redraw
await 15
goto *main
*move
if wparam=1 : sendmsg hwnd,$00A1,2,0
return
*owari
end
*draw
color 255,0,0
boxf 0, 0, 100, 30
color 255,80,80
boxf 0, 30, 100, 60
color 255,50,50
boxf 0, 60, 100, 90
color value_color.0, value_color.1, value_color.2
pos 12, 3
mes "×"
pos 12, 33
mes "×"
pos 12, 63
mes "×"
return
で、Windows8風のウィンドウができます。(これだとウィンドウ内の白い部分もドラッグできてしまいますが。)
ご参考までに。