'Hier die benötigte API-Funktion
Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" (ByVal hwnd As Long, _
  ByVal wMsg As Long, ByVal wParam As Long, _
  lParam As Any) As Long
Private Const LB_SETHORIZONTALEXTENT = &H194

MfG Sanni

* Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt *