Expand/Contract a User Form

Hi,

Is it possible to expand/contract a user form?

I want the user form to display a standard set of items but i then want the user form to expand to the right and display further entry options when the user clicks a "more options" button (can use a spinner control?).

Any suggestions on how I could do this?

Thanks,

Here's code that allows the user the ability to resize the form....
http://www.andypope.info/vba/resizeform.htm

If you'd rather set the size yourself, you can manipulate the .width and .height properties of the userform.

A simpler approach is to use the caption property, then toggle the height and width.

Code:

---

Private Sub OptionsButton_Click()
    If OptionsButton.Caption = "Options >>" Then
        Me.Height = 164
        OptionsButton.Caption = "<< Options"
    Else
        Me.Height = 128
        OptionsButton.Caption = "Options >>"
    End If
End Sub

---

The attachment is from John Walkenbach.

Quote:

---

Originally Posted by david000

A simpler approach is to use the caption property, then toggle the height and width.

Code:

---

Private Sub OptionsButton_Click()
    If OptionsButton.Caption = "Options >>" Then
        Me.Height = 164
        OptionsButton.Caption = "<< Options"
    Else
        Me.Height = 128
        OptionsButton.Caption = "Options >>"
    End If
End Sub

---

The attachment is from John Walkenbach.

---

Thats exactly what i'm looking for.
Thank you.