Hello guys,
I have a UserForm with a Multipage, this multipage has 10 pages.
I would like to cnahge the Height of only one page (Page3) from 400 to 200
while I am visiting this page and revert to 400 when I visit any of the other
pages.
You see, the other pages have lots of txt boxes and lbls, but Page3 has only
a handful of txt and lbls and I would like to shrink its height.

I can do this by clicking on a command button, but would like to have it
happen automatically for the user.

Thank you

' in the user form module

Private Sub MultiPage1_Change()
With MultiPage1
If .Value = 2 Then
.Height = 200
Else
.Height = 400
End If
End With
End Sub

Note the index of the first page is 0, assuming Page3 is the 3rd page its
index is 2

Regards,
Peter T


"Memphis" wrote in message
...
Hello guys,
I have a UserForm with a Multipage, this multipage has 10 pages.
I would like to cnahge the Height of only one page (Page3) from 400 to 200
while I am visiting this page and revert to 400 when I visit any of the
other
pages.
You see, the other pages have lots of txt boxes and lbls, but Page3 has
only
a handful of txt and lbls and I would like to shrink its height.

I can do this by clicking on a command button, but would like to have it
happen automatically for the user.

Thank you

It worked like a charm, thank you Peter ;-)

Memphis.
______________

"Peter T" wrote:

' in the user form module

Private Sub MultiPage1_Change()
With MultiPage1
If .Value = 2 Then
.Height = 200
Else
.Height = 400
End If
End With
End Sub

Note the index of the first page is 0, assuming Page3 is the 3rd page its
index is 2

Regards,
Peter T