Dim g = e.Graphics
        g.PageUnit = GraphicsUnit.Millimeter
 
        Dim blackPen As New Pen(Color.Black, 1)
        Dim greenPen As New Pen(Color.ForestGreen, 1)
 
        Dim x1 As Integer = 10
        Dim y1 As Integer = 100
        Dim width1 As Integer = 50
        Dim height1 As Integer = 80
 
        e.Graphics.DrawRectangle(greenPen, x1, y1, width1, height1)
 
        Dim x2 As Integer = 70
        Dim y2 As Integer = 40
        Dim width2 As Integer = 50
        Dim height2 As Integer = 80
 
        e.Graphics.DrawRectangle(blackPen, x2, y2, width2, height2)

        g.DrawString(String.Format(rtb1.Text, index + 1), _
                     New Font(rtb1.Font, FontStyle.Bold), _
                     Brushes.Black, New Point(15, 100))