Line method - grow box in report - shadow specialeffect

[Mr.K]

I used the line method to draw a box as described on: http://support.microsoft.com/kb/210321
I was wondering if there is a simple way to give the box drawn in such way a shadow effect. (I guess I could always draw additional lines and play with the coordinates but was hoping there is a simpler way).

Here is the code pasted from the above given link:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    Dim X1 As Single, Y1 As Single
    Dim X2 As Single, Y2 As Single
    Dim Offset As Single
    Dim Color As Long

    'Specify unit of measurement for coordinates on a page.
    Me.ScaleMode = 1        'Twips (1440 twips = 1 inch).

    'Define an offset of 1/8 inch from the text box to the rectangle.
    Offset = 1440 / 8

    'X and Y coordinates for the top left corner of the box.
    X1 = Me![Notes].Left - Offset
    Y1 = Me![Notes].Top - Offset

    'X and Y coordinates for the bottom right corner of the box.
    X2 = Me![Notes].Left + Me![Notes].Width + Offset
    Y2 = Me![Notes].Top + Me![Notes].Height + Offset

    Me.DrawWidth = 3        'Width of the line (in pixels).
    
    Color = RGB(0, 0, 0)    'Use black line color.

    'Draw the rectangle with the Line method.
    Me.Line (X1, Y1)-(X2, Y2), Color, B
End Sub