I will keep the two simpler ones for the box I want.
OldMoses:
Code: QB64: [Select]
SCREEN 12
thick = 5
FOR x = 0 TO thick
LINE (6 + x, 5 + x)-(632 - x, 462 - x), 11, B ' box or frame
'LINE (7, 6)-(631, 461), 11, B 'Slightly thicker lines
LINE (6 + x, 5 + x)-(632 - x, 50 - x), 11, B
NEXT x
And Felipe:
Código: QB64 : [Selecionar]
TELA _NOVAIMAGEM ( 800 , 600 , 32 )
caixa 0 , 0 , 200 , 130 , 10 , _RGB32 ( 183 , 133 , 33 )
SUB box ( x , y , w , h , espessura , a cor AS _UNSIGNED LONG )
LINE ( x , y ) - STEP ( w , h ) , theColor , BF
LINHA ( x + espessura , y + espessura ) - PASSO ( w - espessura * 2 , h - espessura * 2 ) , _BACKGROUNDCOLOR , BF
END SUB
Felipe's line code is great.
Simple and with few lines.
Thank you all
Carlos