sub Poly(n, byref x, byref y)

Draws a polygon

Dim x[3], y[3] 
x[0] = 50 : y[0] = 50 
x[1] = 90 : y[1] = 90 
x[2] = 10 : y[1] = 90 
  
Poly(3, x, y) 'Draws a triangle