VBA dynamically change width listbox

[Frederik]

Using Windows XP Eccel 2003

On a UserForm there are only one ListBox and one OK button.
I would like to change the width of the UserForm, the width of the ListBox
and the position of the OK button,
depending on the largest element in the ListBox (depending on the variable
atl).

I'm using this code:

UserForm2.Width = atl * 158 / 31 + 80
UserForm2.ListBox2.Width = atl * 158 / 31 + 5
UserForm2.OKknop.Left = atl * 158 / 31 + 25

When I use Show to activate UserForm2 , the width of the UserForm and the
position of the OK button are changed, but not the width of the ListBox!
Why not?

Any hint is very welcome!

 

[Frederik]

It's really ListBox2. ListBox1 is part of another Userform.

 

[Frederik]

Supplementary information:

If I put a Msgbox instruction in the code to display whatever message, then
the width of the listbox ís changed!
Strange ...
But I don't want that message on screen...

 

[Frederik]

Problem solved!
I moved the procedure to change the width of the listbox to the procedure
accompagning userform2

public sub userform_activate()
userform2.listbox2.width = atl*158/31+5
end sub

and defined the variable atl as a public variable in my first module

 

[JLGWhiz]

Glad you found a solution. I had assumed that the code was in the initialize
event. I should have followed my own rule and never assume anything.

 

[Frederik]

Thanks for your thinking with me anyway!