Adding RunningTotal field from runtime

Hi!

I have a problem adding RunningTotal field from runtime...

Here is what i allready done:

Adding gruop:
.AddGroup 0, .unFKonto.Field, crGCAnyValue, crAscendingOrder

Adding unBoundField in GroupHeader section(lSectH)

Dim crKonto As FieldObject
Set crKonto = crReport.Sections(lSectH).AddUnboundFieldObject(crStringField, 200, 20)
With crKonto
.Font.Name = "Arial Narrow"
.SetUnboundFieldSource "{ado.Konto}"
.width = 1000
End With

All that works great but now i need to add RunningTotal in GruopFooter section
How to do that?

Here is what i allready done:
Dim crRTtest As RunningTotalFieldDefinition

Set crRTtest = .RunningTotalFields.Add("Sum of Konto")
crRTtest.SummaryType = iSum

Well, how to add crRTtest to section 5 after setting all needed properties?

regardsDone!

Dim crRTtest As RunningTotalFieldDefinition
Dim crBla As FieldObject
With crReport
Set crRTtest = .RunningTotalFields.Add("Sum of sss")

crRTtest.SummaryType = crSTSum
crRTtest.SetNoEvaluateCondition

crRTtest.SetResetConditionField .unFKonto.Field
crRTtest.SetSummarizedField .DokPrice.Field
Set crBla = .Sections(lSecF).AddFieldObject(crRTtest, 200, 20)
End With

Spent 3 days on that...
It was confusing to me that CR have AddBlobObject, AddSummaryFieldObject and so on but no AddRunningTotalFieldbject.

p.s.
Do you know where to find good help for developer on CR v8?
Developr.hlp is cunfusing and not very helpfull