Dim hr As rtHRule

dim table as New rtTable(2,2), c as rtCell
dim count as integer, i as integer
for i = 1 to 2
 Set hr = New rtHRule(0.4*ONE_CM)
 hr.RuleHeight = count * ONE_CM
 hr.RuleWidth= ONE_CM
 Set hr.Color = New rtColor(9)
 hr.Color.setRGB (10000*Rnd) Mod 255, (10000*Rnd) Mod 255, (10000*Rnd) Mod 255
 
 Count = count+1
 set c = table.Cells (1,Count)
 c.Flags = &h82
 c.Content.addNewLine 1
 c.add hr
next i
ctxDump.addNewLine 1
ctxDump.add table
ctxDump.addnewline 1
|