Counting sections in Cr report from VB

Hi everybody!

Does anybody know how to Count number of Groups within given report from VB application?
For example I can refer to a group header in the following way:
Report.Areas.Item(GH1).Suppress = True
But how can I find how many group header currently in report so i can loop through count like following:

For iCount = 1 To GroupHeaderCount
Report.Areas.Item(GH & "iCount").Suppress = True
Next iCount

Thanks in advance for any info.