>Form1.Hieght = button.Top + button.Bottom + SPACEPADDING
You are forgetting to include the height of the Form's Caption bar which isnoend07 calls TopOffset in his example so try;

TopOffSet = Me.Height - Me.ScaleHeight
Form1.Hieght = button.Top + button.Bottom + SPACEPADDING + TopOffSet