lDetails iRow, 11, "Steve McMahon", , , , lCol, sFntUnread
         Else
            .CellDetails iRow, 11, "Steve McMahon", , , , lCol
         End If
         
         iIdx = Int(Rnd * 9) + 1
         .CellDetails iRow, 14, sBody(iIdx), DT_WORDBREAK, , , RGB(0, 0, &amp;H80)
         lHeight = .EvaluateTextHeight(iRow, 14) + .DefaultRowHeight + 2

         ' Read/unread marker:
         If (iRow &lt; 16) Then
            .CellDetails iRow, 12, "NOTREAD"
            .RowHeight(iRow) = lHeight
         Else