[WD20] Expand/Collapse Table Break with Double Click

Has anyone came up with a way to expand/collapse breaks in a table by double clicking the break header? Using the code below I can't always get the correct header subscript.

Left button double click on TABLE_Test

nRow is int = TableBreakSubscript(BRK_Header)
nLineNumber is int = TableInfoXY(MySelf,tiLineNumber,MouseXPos(),MouseYPos())
Trace(MySelf)
Trace(nRow)
Trace(nLineNumber)