[SOLVED] Row height

Option Explicit

Private Sub Form_Load()
   Dim i As Long
   
   With Me.ReportControl1
      .SetCustomDraw xtpCustomMeasureRow
      
      .Columns.Add .Columns.Count, "Test", 100, True
      
      For i = 0 To 99
         With .Records.Add
            .AddItem i
         End With
      Next i
      
      .Populate
   End With
End Sub

Private Sub ReportControl1_MeasureRow(ByVal Row As XtremeReportControl.IReportRow, ByVal hDC As stdole.OLE_HANDLE, ByVal Width As Long, Height As Long)
   If Row.Index Mod 2 = 0 Then
      Height = 75 ' Pixels
   End If
End Sub