Use the FirstVisibleItem, NextVisibleItem and IsItemVisible properties to get the items that fit the client area. Use the NextVisibleItem property to get the next visible item. Use the IsVisibleItem property to check whether an item fits the control's client area. 

The following VB sample enumerates the items that fit the control's client area:

On Error Resume Next
Dim h As HITEM
Dim i As Long, j As Long, nCols As Long
nCols = Gantt1.Columns.Count
With Gantt1.Items
    h = .FirstVisibleItem
    While Not (h = 0) And .IsItemVisible(h)
        Dim s As String
        s = ""
        For j = 0 To nCols - 1
            s = s + .CellCaption(h, j) + Chr(9)
        Next
        Debug.Print s
        h = .NextVisibleItem(h)
    Wend
End With

The following C++ sample enumerates the items that fit the control's client area:

#include "Items.h"
CItems items = m_gantt.GetItems();
long hItem = items.GetFirstVisibleItem();
while ( hItem && items.GetIsItemVisible( hItem ) )
{
	OutputDebugString( V2S( &items.GetCellCaption( COleVariant( hItem ), COleVariant( long(0) ) ) ) );
	hItem = items.GetNextVisibleItem( hItem );
}

The following VB.NET sample enumerates the items that fit the control's client area:

With AxGantt1.Items
    Dim hItem As Integer
    hItem = .FirstVisibleItem
    While Not (hItem = 0)
        If (.IsItemVisible(hItem)) Then
            Debug.Print(.CellCaption(hItem, 0))
            hItem = .NextVisibleItem(hItem)
        Else
            Exit While
        End If
    End While
End With

The following C# sample enumerates the items that fit the control's client area:

EXGANTTLib.Items items = axGantt1.Items;
int hItem = items.FirstVisibleItem;
while ( ( hItem != 0 ) && (items.get_IsItemVisible(hItem)) )
{
	object strCaption = items.get_CellCaption(hItem, 0);
	System.Diagnostics.Debug.WriteLine( strCaption != null ? strCaption.ToString() : "" );
	hItem = items.get_NextVisibleItem(hItem);
}

The following VFP sample enumerates the items that fit the control's client area:

with thisform.Gantt1.Items
	.DefaultItem = .FirstVisibleItem
	do while ( ( .DefaultItem <> 0 ) and ( .IsItemVisible( 0 ) ) )
		wait window .CellCaption( 0, 0 )
		.DefaultItem = .NextVisibleItem( 0 )	
	enddo
endwith