Format Pageheader

[Ben Adams]

Would like to change the color of a Box for each PageHeader - And use Random
Colors. Not sure where to start??

Me.Box81 is the box with the color, Me.TableofContents is the field that
contains the PageHeader title.
________________________________________


Dim BCOLOR As Integer


Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As
Integer)

BCOLOR = 255

OnChange(Me.TableofContents)
BCOLOR = BCOLOR + 10
Me.Box81.BackColor = BCOLOR

End Sub