Create an area code:
Function PE_AREA_CODE(sectionType As Integer, groupN As Integer) As 
Integer
    PE_AREA_CODE = PE_SECTION_CODE(sectionType, groupN, 0)
End Function


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com