Private Sub IXDPFoundItemEx_Proc(ByVal ParentFullPath As String, ByVal ItemName As String, ByVal ItemType As xDir200Pro_75B4A91C.EItemTypes, ByVal Attributes As xDir200Pro_75B4A91C.EItemAttributes, ByVal FileSize As Variant, ByVal Created As Date, ByVal Modified As Date, ByVal Accessed As Date, ByVal NodeKey As Long, ByVal ParentNodeKey As Long, CancelEnum As Boolean, ByVal UserValue As Long)
    'add the item to the grid
    Dim lngNewRow As Long
    
    With iGrid1
        lngNewRow = .AddRow
        .CellValue(lngNewRow, 1) = ItemName
        .CellValue(lngNewRow, 2) = FormatNumber(FileSize, 0)
        .CellValue(lngNewRow, 3) = Modified
        
        If ItemType = xditFile Then
            Let .CellIcon(lngNewRow, 1) = 1   'file
        Else
            Let .CellIcon(lngNewRow, 1) = 2   'folder
        End If
    End With
    
End Sub

Private Sub Form_Load()

    Me.ScaleMode = vbPixels
    With iGrid1
        .AllowSorting = False
        .ColCount = 3
        .RowCount = 0
        .ColHeaderText(1) = "Name"
        .ColHeaderText(2) = "Size"
        .ColHeaderText(3) = "Last Modified Date"
        .ColWidth(1) = .Width * 0.5
        .ColWidth(2) = .Width * 0.25
        .ColWidth(3) = .Width * 0.25
        .DefaultRowHeight = 18  'needs to be slightly bigger than 16x16 icons we're using
        .Editable = False
        .Enabled = True
        .Font.Name = "Lucida Sans Unicode"
        .Font.Size = 10
        .FullRowSelect = True
        .RowMode = True
        .GridLines = igGridLinesNone
        .HideSelection = False
        .HScrollBar.DisplayMode = igScrollBarDisplayNever
        .VScrollBar.DisplayMode = igScrollBarDisplayNormal
        .MultiSelect = True
        .Virtual = True
        
        .SetImageList (vbalImageList1)
    End With
    
    Set moxDirSource = New xDirPro
    
End Sub