سلام
چيزي كه شما مي‌خواين به عنوان نمونه به اين شكل ميشه ولي به من موقع اجرا خطاي لايسنس داد و ممكنه با كريستال شما مشكلي نداشته باشه
من تو كريستال 9 تست كردم
    Dim crRept  As New CRAXDRT.Report
crRept.Sections(2).AddFieldObject "Name", 10, 100