Access VisualBasic Script

Sub Report_Page()
    Me.Line (0, 0)-(Me.ScaleWidth - 30, Me.ScaleHeight - 30), _
        RGB(255, 0, 0), B
End Sub