UserForm ListBox Height

[Guest]

I am creating an application that uses a number of UserForms, most with
multiple listboxes. The listboxes are initially set up in what I view at the
best default layout of position and size. Prior to showing I check some
parameters and change the size accordingly. Some simple sample code:

Load UserForm1

If NumberOfListBoxes=4 Then
With UserForm1.ListBox1
..Caption="Some New Text"
If SomeOtherFactor=True Then
..Height=200
End If
End With
End If

UserForm1.Show

The problem is that the height changes are not being made consistently, even
though I know that this portion of the code is run. Am I doing something
amaturish that does not insure that the change is made? Any help would be
appreciated. Thank you.

 

[Guest]

The only thing that I see is the If condition. SomeOtherFactor has to be
True for the height to change. Have you stepped through the code to see if
SomeOtherFactor = True when the height does not change?

 

[Guest]

JLGWhiz,

Thanks for looking at this. I have put a Stop after the .Height=200, and
the value is indeed 200. It just doesn't consisently change the actually
box. On one UserForm, I am actually setting the condition on 4 different
listboxes. Sometimes, all will change length, sometime none, sometimes one
or two. It really seems to be a matter of consistency.

I see similar issues with setting the value occasionally. This one is even
wierder in that the listbox highlighted item, but does not seem to
acknowledge it when queried.

Again, any help or insight would be greatly appreciated. Thank you.

 

[Guest]

In the absense of any help, I added a DoEvents after .Height=200. No very
satisfying but it works.