How to find whether a row in the GridGroupingControl is expanded or collapsed through test script code?

The helper functions such as IsGroupExpanded, IsRecordExpanded will be helpful in knowing these status. The other related functions are IsGroupRow and IsRecord, helps to find whether a row is a record row or a caption row.

SwfWindow("GridGroupingControl").Move 405,287
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 4,"parentID"
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").ExpandRecord 4

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 10,"childID"
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").ExpandRecord 10

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").MouseDown 6,"Name","Left"
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 10,"childID"
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").GroupBy "ChildTable","Name","Add"

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").ExpandGroup 9
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 11,"childID"
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 13,"childID"

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").ExpandGroup 8
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 8,"childID"
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 10,"Name"

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetScrollPosition 80,18
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetScrollPosition 84,18
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetScrollPosition 84,18
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetScrollPosition 85,18
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCellData 10,"Name","ChildName0_Modified"

If SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").IsGroupRow(8) Then
 If SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").IsGroupExpanded(8) Then
    MsgBox "Row 8 is found to be a Caption and is expanded"
 Else
    MsgBox "Row 8 is found to be a Caption and is Collapsed"
End If
End If

If SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").IsRecord(10) Then
 If SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").IsRecordExpanded(10) Then
    MsgBox "Row 10 is found to be a Record and is expanded"
 Else
    MsgBox "Row 10 is found to be a Record and is Collapsed"
End If
End If
 
SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").CollapseGroup 5
If SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").IsGroupRow(5) Then
 If SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").IsGroupExpanded(5) Then
    MsgBox "Row 5 is found to be a Caption and is expanded"
 Else
    MsgBox "Row 5 is found to be a Caption and is Collapsed"
 End If
End If