xTable - change cell colour

Hello,

In my xTable, this sub will change the colour of the dialog permanently when I change a cell entry:-

Sub XTable1_EventValSet(ByRef This, Row, Col, ByRef Cell) 'Created Event Handler

If Row > 0 And Col > 0 Then

Data.GetChannel(Col).Values(Row) = Val(Eval(Cell.Text))

Dialog.Color = vbcyan' this works

End If

But, how can I change the background colour of just the changed cell permanently?

I can only get the cell colour to change temporarily using the examples from Diadem help (XTable1_EventDefaultColCtrlPreset and Cell.ForeColor)......

Any help is appreciated.

Thank you.