home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1995 October / PCPRO_OCT.ISO / code / win / code_4.txt < prev    next >
Encoding:
Text File  |  1995-08-08  |  269 b   |  6 lines

  1. For TheSection = 1 To MySectionCount
  2.     SectionName = newBinder.Sections(TheSection).Name
  3.     SectionObject = newBinder.Sections(TheSection).Type
  4.     MsgBox "Section " & TheSection & " is named " & SectionName & " and is of type " & SectionObject
  5. Next TheSection
  6.