Make Listbox Grow

[ddrew]

I have a listbox on a report and in order to keep ithings tidy I want it to fit the contents. I found this piece of code:

Dim getListboxCountBeaters As Integer
Dim setHeight As Integer

getListboxCountBeaters = Me.listBeaters.ListCount
' Adjust Number Accordingly
setHeight = 217

Me.listBeaters.Height = getListboxCountBeaters * setHeight

Which dosen't work as I think it should, from reading the description it should count the amount of records and then set the height accordingly, but it seems to just set it bigger regardles of the amount of recored.

Can anyone see what is wrong please?

 

[CJ_London]

I can't see anything wrong with the code although I use a slightly different way of doing the same thing

listBeaters.Height =listBeaters.ListCount * 217

 

[Mihail]

I can't test this just now but I think that Integral Height property for the list box should be disabled.
Also, that 217 should be the height for one row and this depend of the font size that you use. What if you use a decreased value ?