sKey As String
Dim bFound As Boolean
Dim lItemData As Long
Dim bIgnoreUntilNext As Boolean

   If (lRow &gt; 0) And (lCol &gt; 0) Then
      ' Dbl clicked on a valid cell.  Find out whether it is a group or
      ' not:
      sKey = grdOutlook.ColumnKey(lCol)
      If (sKey = "body") Then
         grdOutlook.Redraw = False
         ' Expand or collapse:
         lItemData = grdOutlook.CellItemData(lRow, 14)
         If (grdOutlook.CellExtraIcon(lRow, 14) = 15) Then
            ' collapse:
            grdOut