<code>Public Declare Function SendMessage Lib "user32" Alias _
  "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _
  As Long, ByVal wParam As Long, lParam As Any) As Long
 
Const LB_SETHORIZONTAL = &H194
 
<font color=green>' Horizontale Scrollbar</font>
<font color=green>' zunächst längsten Eintrag ermitteln</font>
Dim I As Integer
Dim maxWidth As Long
 
For I = 0 To List1.ListCount - 1
  If TextWidth(List1.List(I)) > MaxWidth Then _
    MaxWidth = TextWidth(List1.List(I))
Next i
 
<font color=green>' in Pixel umrechnen</font>
maxWidth = maxWidth / Screen.TwipsPerPixelX
 
SendMessage List1.hWnd, LB_SETHORIZONTAL, maxWidth, 0&</code>