' enable sending events
wndReportControl.SetCustomDraw xtpCustomDrawItem + xtpCustomMeasureRow
 
 
' Set row size as picture height
Private Sub wndReportControl_MeasureRow(ByVal Row As XtremeReportControl.IReportRow, ByVal hDC As stdole.OLE_HANDLE, ByVal Width As Long, Height As Long)
    '567 twips to a centimeter
    Height = Image1.Picture.Height / 1000 * 567 / Screen.TwipsPerPixelX
End Sub
 
' Place inmage named Image1 to your form, select bitmap for it
Private Sub wndReportControl_DrawItem(ByVal Row As IReportRow, ByVal Column As IReportColumn, ByVal Item As IReportRecordItem, ByVal hDC As stdole.OLE_HANDLE, ByVal left As Long, ByVal top As Long, ByVal right As Long, ByVal bottom As Long, DoDefault As Boolean)
    If Column.ItemIndex = COLUMN_SIZE Then
        
        DoDefault = False
        
        Dim pPicture As IPicture
        Set pPicture = Image1.Picture
      
        ' Draw image to report cell
        pPicture.Render hDC, left, top, right - left, bottom - top, _
                              0, pPicture.Height, pPicture.Width, -pPicture.Height, _
                              Null
    End If
    
End Sub