why are we appending the counter which is an index of the wriline string array.
Dim strPrint As New StringBuilder
For Me.counter = 0 To 19
strPrint.Append(counter & vbCrLf)
Next Me.counter
e.Graphics.DrawString(strPrint.ToString, New Font("Ariel", 12), System.Drawing.Brushes.Black, 10, 10)
should be <pre><code> Dim strPrint As New StringBuilder For Me.counter = 0 To 19 strPrint.Append(writeline(me.counter) & vbCrLf) Next Me.counter e.Graphics.DrawString(strPrint.ToString, New Font("Ariel", 12), System.Drawing.Brushes.Black, 10, 10)</code></pre>