Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        IGrid1.Cols.Count = 10
        IGrid1.Rows.Count = 10
        IGrid1.Cols(1).SortType = iGSortType.None

        IGrid1.Header.Cells(0, 1).Value = "really long header value"
        IGrid1.Cells(3, 1).Value = "really long cell value"

    End Sub

    Private Sub IGrid1_CellClick(sender As Object, e As iGCellClickEventArgs) Handles IGrid1.CellClick
        If IGrid1.Cells(e.RowIndex, e.ColIndex).IsCellPartClipped(iGClippedCellParts.Text) Then
            MsgBox("clipped")
        Else
            MsgBox("not clipped")
        End If
    End Sub

    Private Sub IGrid1_ColHdrClick(sender As Object, e As iGColHdrClickEventArgs) Handles IGrid1.ColHdrClick
        ' the next line will not compile
        ' IsCellPartClipped is not a member of 'iGColHdr'
        If IGrid1.Header.Cells(e.RowIndex, e.ColIndex).IsCellPartClipped(iGClippedCellParts.Text) Then
            MsgBox("clipped")
        Else
            MsgBox("not clipped")
        End If
    End Sub
End Class