Horizontal scroll bar in listbox?

[davidb]

Using VB 6 SP3 and the standard list box, how can I add a horizontal scroll bar to the box? I know it is an API call, I've done it before, but for the life of me cannot remember how to do it.

Can anyone help me out here?

Thanks,

[Chris]

I just come across this from MSDN Library.

   '======== General Declarations for Form1  ==================
   ' For VB4 16-bit, add the keyword Private before each Declare,
   ' and enter the following Declare as one, single line:
   Declare Function SendMessage& Lib "user" (ByVal hWnd%, ByVal wMsg%,
     ByVal wParam%, ByVal lParam&)
   Declare Function GetFocus Lib "User" () as Integer

   '======== Form1 =======================
   'NOTE: each command must appear on one, single line.

   Sub Command1_Click ()
      Const LB_SETHORIZONTALEXTENT = &H400 + 21
      Const NUL = 0&
      ' wParam is in PIXEL(3).
      ScaleMode = 3

      ' Get the handle.
      List1.SetFocus
      ListHwnd% = GetFocus()

      ' This string will show up initially.
      ListString1$ = "Derek is a great "

      ' You can scroll to see this portion.
      ListString2$ = "little boy "

      ' You cannot scroll to see this string.
      ListString3$ = "but can be a problem sometimes"

      ExtraPixels% = TextWidth(ListString2$)
      BoxWidth% = TextWidth(ListString1$)

      ' Resize the text box.
      List1.Move List1.Left, List1.Top, BoxWidth%

      ' Add the scroll bar.
      X& = SendMessage(ListHwnd%, LB_SETHORIZONTALEXTENT,
         BoxWidth% + ExtraPixels%, NUL)

      ' Add the example string to the list box.
      List1.AddItem ListString1$ + ListString2$ + ListString3$
   End Sub