Hi,

I have a form with a combobox. Its width is set to 78 using the
properties gui, 1st column is bound and 2 columns should display when
open.

The rowsource of the combobox is a 2 column range, set in code, works
fine.

These 2 colums combined are broader than 78, so while it is clicked open,
I want the combobox to resize to 100, overlapping the controls to its
right.

After the user makes her selection, I want to resize back to 78.


Below the eventhandlers concerned. The _change event is 'the revert to
normal' part. I fires allright, but not only does the combobox remain at
100, its arrow disappears. Repainting doesn't do anything.


What does work is to insert a msgbox after setting the width ???
When OK'd, the combobox width is back to 78, with arrow.


thx for any advice

Ward




Private Sub afdeling_Change()
artikeldimensies.afdeling.Width = 78
'msgbox "I was here"
End Sub

Private Sub afdeling_DropButtonClick()
artikeldimensies.afdeling.Width = 100
End Sub