Dim g = e.Form.Controls("RecordGrid1").BaseControlg.AutoSizeRows
-----------------
Dim g = e.Form.Controls("RecordGrid1").BaseControlFor Each r As object In g.rows r.height = 20Next