roup(i) Then
            If (grdOutlook.CellText(i, 12) = "NOTREAD") Then
               lHeight = grdOutlook.EvaluateTextHeight(i, 14) +
                grdOutlook.DefaultRowHeight
               grdOutlook.RowHeight(i) = lHeight
            Else
               grdOutlook.RowHeight(i) = grdOutlook.DefaultRowHeight
            End If
         End If
      Next i
   Else
      ' All preview:
      For i = 1 To grdOutlook.Rows
         If Not grdOutlook.RowIsGroup(i) Then
            lHeight = grdOutlook.Eval