ight
         End If
         For lCol = 1 To .Columns
            If (lCol = lFileCol Or lCol = lCol8) Then
               .CellDetails lRow, lCol, , , Rnd * (ilsIcons.ImageCount - 1)
            ElseIf (lCol = lSizeCol) Then
               .CellDetails lRow, lCol, Int(Rnd * 1024 * 1024&amp;), DT_RIGHT Or
                DT_SINGLELINE Or DT_END_ELLIPSIS
            ElseIf (lCol = lTypeCol) Then
               .CellDetails lRow, lCol, "Type " &amp; lRow &amp; ",Col" &amp; lCol
            ElseIf (lCol = lDa