How to determine the group level of a focused row

An approach for determining the group level

Sometimes it is a good idea to write a problem down (or to post it) and to pause for a while...

My approach to determine the group level is current an iteration "upwards" through all ParentRows until ParentRow points to Nothing. Counting the steps will result in the group level.

Sub ReportControl_SelectionChanged()

    Dim rptRow as ReportRow
    Dim iLevel as Integer

    If ReportControl.FocusedRow.GroupRow Then

        iLevel = 1
        Set rptRow = .ParentRow
        Do Until rptRow Is Nothing
            Set rptRow = rptRow.ParentRow
            iLevel = iLevel + 1
         Loop

    Msgbox "GroupLevel="; iLevel
    Msgbox "ColumnIndex="; [Index of grouped column]
End If 


Is there maybe a way to get the level in a better (shorter) way?

But how to get the index of the grouped column? No ideas?

Peter