Controlling Height Of Section In VBA

My report has the Section's Footer.
Each time the section runs, it will take up a different amount of space.
I have already run all the code, to move all the different controls to the top (and be invisible) when they are not needed.
So to the best of my knowledge, I have no controls sitting in the lower part of the section.
The last thing I run is:
Code: Me.S123.Height = Me.S123.Height - 300
s123 is the name of the Footer SEctions. The idea is that it gets progressively smaller.
This is all running in:
Code:Private Sub S123_Format(Cancel As Integer, FormatCount As Integer)

All the other things work.
Here is a sample of it all..
Code:If Me.txt2 = 0 Then Me.a2.Visible = False Me.b2.Visible = False Me.a2.Top = 0 Me.b2.Top = 0 Me.box.Height = Me.box.Height - 300 Me.S123.Height = Me.S123.Height - 300End IfIf Me.txt2 <> 0 Then Me.a2.Visible = True Me.b2.Visible = TrueEnd IfIf Me.txt3 = 0 Then Me.a3.Visible = False Me.b3.Visible = False Me.a3.Top = 0 Me.b3.Top = 0 Me.box.Height = Me.box.Height - 300 Me.S123.Height = Me.S123.Height - 300End If

This runs through 8 different numbers.
as I said, all the other things operate properly. They get hidden and move.


Any thoughts?

Thanks.