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" <(E-Mail Removed)> wrote in message
news:85BFDA37-64B4-43A2-9697-(E-Mail Removed)...
> 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
>
>