Sub gp3dFrame (tForm As Form, tLeft As Single, tTop As Single,
               tWidth As Single, tHeight As Single)

    tColor& = &HFFFFFF'White
    GoSub rDrawRectangle:

    tLeft = tLeft + 10
    tTop = tTop + 10

    tColor& = &H808080'Grey
    GoSub rDrawRectangle:

Exit Sub

'************************************************************

rDrawRectangle:
'calculate fields
    tRight! = tLeft + tWidth
    tBottom! = tTop + tHeight

'right line
     tForm.Line (tRight!, tTop)-(tRight!, tBottom!), tColor&

'bottom line
     tForm.Line (tRight!, tBottom!)-(tLeft, tBottom!), tColor&

'left line
     tForm.Line (tLeft, tTop)-(tLeft, tBottom!), tColor&

'top line
    tForm.Line (tLeft, tTop)-(tRight!, tTop), tColor&

Return

End Sub
