private void arv_Load(object sender, System.EventArgs e)
{
    rptDocument rpt = new rptDocument();
    rpt.Run();
    arv.Document=rpt.Document;
    arv.Document.Pages[0].BackColor = System.Drawing.Color.Purple;
    arv.Document.Pages[0].ForeColor = System.Drawing.Color.YellowGreen;
    arv.Document.Pages[0].PenStyle = GrapeCity.ActiveReports.Document.Section.PenStyles.Dot;
    arv.Document.Pages[0].PenWidth = 4;
    Single x = 1.0F;
    Single y = 1.0F;
    Single width = 2.0F;
    Single height = 2.0F;
    RectangleF drawRect = new RectangleF(x,y,width,height);
    arv.Document.Pages[0].DrawRect(drawRect);
}

Private Sub arv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles arv.Load
    Dim rpt As New rptDocument
    rpt.Run()
    arv.Document = rpt.Document
    Dim x As Single = 1.0F
    Dim y As Single = 1.0F
    Dim width As Single = 2.0F
    Dim height As Single = 2.0F
    Dim drawRect As New RectangleF(x, y, width, height)
    With arv.Document.Pages(0)
        .BackColor = System.Drawing.Color.Purple
        .ForeColor = System.Drawing.Color.YellowGreen
        .PenStyle = GrapeCity.ActiveReports.Document.Section.PenStyles.Dot
        .PenWidth = 4
        .DrawRect(drawRect)
    End With
End Sub