lines
rem out the me.print statement
If you don't want to use a loop for the vertical lines do the following:
To create some vertical lines just put a few lines of code after the Next statement like
me.line (0,whateveryvalueyouwanttostartat)-(0,whateveryvalueyouwanttoendat),,B
me.line...