Expand Form

[MrMeric]

Good day!
I would like to accomplish this: When a user clicks on a button, the form will expand and a subform will appear in the expanded area.

I've tried to implement this function with no avail.
I currently have the subform position set to 0,0,0,0. I have a button that contains:

Form.Width = 17460
Me.Actions.Move 12540, 60, 4812, 4284

"Actions" is the name of the subform. I thought this would work, but it doesn't.

Any ideas?

 

[MrMeric]

Nevermind, I got it!

Dim FormLeft As Integer
Dim FormTop As Integer

FormLeft = Me.Form.WindowLeft
FormTop = Me.Form.WindowTop
Me.Form.Move FormLeft, FormTop, 17460, 6650
Me.Actions.Move 12540, 60, 4812, 4284