; ID: 2473
; Author: B
; Date: 2009-05-08 00:51:13
; Title: Draw Box
; Description: Draw a box with select thickness

'CODE

Function box(x1,y1,x2,y2,thickness)
For i = 1 To thickness
	'top
	DrawLine x1,y1,x2,y1
	'bottom
	DrawLine x1,y2,x2,y2
	'left
	DrawLine x1,y1,x1,y2
	'right
	DrawLine x2,y1,x2,y2
x1:+1
y1:+1
x2:-1
y2:-1
Next

EndFunction