 = iRow + 1
         Loop While iRow &lt; grdOutlook.Rows
         For iRow = 1 To grdOutlook.Rows
            If Not grdOutlook.CellItemData(iRow, 14) = 1 Then
               grdOutlook.RowVisible(iRow) = False
            End If
         Next iRow
      End If
      
      ' Start redrawing again:
      If (iRefCount = 1) Then
         grdOutlook.Redraw = True
      End If
   End If
   iRefCount = iRefCount - 1
End Sub


Private Sub Form_Load()
Dim iRow As Long
Dim iIconUrgent As Long
Dim iIconAttach As L