[AccessD] Wacky height of record selector rows on a continuous form subform

Please Please Please someone respond quickly, I am ready to take the bridge, and I am not talking about a card game.

I spend hours after deciding to switch to a continuous form, to have that be the default view of a subform. I painstakingly set the controls exactly where I wanted them in design view on the subform, before putting it as a subform on the main form.

When I run the main form, the sizes of the rows are all too large, and nothing like what they were when the subform is run by itself.

This code only shrinks the controls, it doesn't change the height of the recordselectors.

Private Sub Form_Load()
Dim ctrl As Control
Dim T As Control
Set ctrl = Controls("My Sites and My Products For Warranty")
Dim f As Form
Set f = ctrl.Form
For Each T In f.Section(0).Controls
  T.Height = 400
Next

End Sub