look.CellExtraIcon(lRow, 14) = 16
            lRow = lRow + 1
            Do While lRow &lt;= grdOutlook.Rows And Not bFound
               If grdOutlook.CellItemData(lRow, 14) = 0 Or
                grdOutlook.CellItemData(lRow, 14) &gt; lItemData Then
                  grdOutlook.RowVisible(lRow) = False
               Else
                  bFound = True
               End If
               lRow = lRow + 1
            Loop
         Else
            ' expand:
            grdOutlook.CellExtraIcon(lRow, 14)