home *** CD-ROM | disk | FTP | other *** search
- For TheSection = 1 To MySectionCount
- SectionName = newBinder.Sections(TheSection).Name
- SectionObject = newBinder.Sections(TheSection).Type
- MsgBox "Section " & TheSection & " is named " & SectionName & " and is of type " & SectionObject
- Next TheSection
-