Sub Line(x1, y1, x2, y2)
Draws a line