View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Keith74 Keith74 is offline
external usenet poster
 
Posts: 120
Default Listbox horizontal scrollbar problem

Hi All

I have a listbox with 3 columns. The first 2 have their width set to 0
and the third is left to default i.e. size itself (theorectically).
The problem i'm having is that even though the contents of the 3rd
column are greater than the width of the listbox the horizontal
scrollbar is not being displayed. Does anyone have any ideas on this?

The code i'm using to fill the listbox is:

Do Until ADOrecordset.EOF
lstAvailable.AddItem
lstAvailable.Column(0, intcount) = ADOrecordset!
ClientWorkID
lstAvailable.Column(1, intcount) = ADOrecordset!
WorkTypeCat
lstAvailable.Column(2, intcount) = CStr(ADOrecordset!
ClientName & " " & ADOrecordset!SchemeDesc & " " & ADOrecordset!
WorkDesc & IIf(ADOrecordset!WorkTypeCat = 0, " (B)", " (F)"))
ADOrecordset.MoveNext
intcount = intcount + 1
Loop


cheers

Keith