Eliminar TaskGroup y Crear Uno nuevo en su misma ubicación

Hola Andres, Ante todo una gran felicitación por tan prodigiosa clase, mis mas sinceros respetos, estoy trantando de activar un tastkgroup con items que actualicen al taskgroup siguiente. esta es la secuencia de código que estoy intentando pero a pesar de eliminar el taskgroup y crear el nuevo, me queda un espacio vacio entre el taskgroup y el nuevo taskgroup como si se reservara el espacio. este es el código que estoy utilizando:
oTaskPanel:Item(3):Collapse()
oTaskPanel:Item(3):Destroy()
oTaskPanel:Update()
oTaskPanel:Item(3):New( "Centros "+cParroquia,, .F., oTaskPanel,,, .T., .F.,.T.,, )
oTaskPanel:Item(3):nTop := nTop
oWndDefault := GetWndDefault()
SetWndDefault( oTaskPanel:Item(3) )
FOR x:= 1 TO LEN( aData )
cAction := "ShowMapa('"+ALLTRIM(aData[x,4])+"','"+ALLTRIM(aData[x,5])+"',oActiveX)"
oTaskPanel:Item(3):AddTask(aData[x,1], NIL,{|| &cAction }, aData[x,1]+CRLF+"Electores ="+STR(aData[x,2],7,0)+CRLF+"Mesas ="+STR(aData[x,3],3,0),.f. )
NEXT x
oTaskPanel:Item(3):Move( nTop, nLeft, oTaskPanel:Item(3):nWidth, oTaskPanel:Item(3):nHeight, .F. )
MsgInfo(STR(nLeft)+CRLF+STR(oTaskPanel:Item(3):nTop))
SetWndDefault( oTaskPanel:Item(3) )
oTaskPanel:Item(3):Update()
oTaskPanel:Update()
oTaskPanel:Item(3):Expand()

Podrias ayudarme a corregir esta falla, y a medida que voy seleccionando otros items, deja más y más espacio como si reservara el espacio de los taskgroup que existian anteriormente.

oTaskPanel:Item(3):Collapse()
oTaskPanel:Item(3):Destroy()
oTaskPanel:Update()
ADel( oTaskPanel:aControls, 3 )
ASize( oTaskPanel:aControls, 2 )

oTaskPanel:AddGroup( "Centros "+cParroquia,, .F.,,, .T., .F.,.F.,, )
oWndDefault := GetWndDefault()
SetWndDefault( oTaskPanel:Item(3) )
cNombre, oCon )
FOR x:= 1 TO LEN( aData )
cAction := "ShowMapa('"+ALLTRIM(aData[x,4])+"','"+ALLTRIM(aData[x,5])+"',oActiveX,'"+aData[x,1]+"')"
oTaskPanel:Item(3):AddTask(aData[x,1], NIL,{|| &cAction }, aData[x,1]+CRLF+"Electores ="+STR(aData[x,2],7,0)+CRLF+"Mesas ="+STR(aData[x,3],3,0),.f. )
NEXT x
oTaskPanel:Item(3):Update()
oTaskPanel:Update()
oTaskPanel:Item(3):Expand()
SetWndDefault( oTaskPanel:Item(3) )