Private Declare Function GetSystemMetrics Lib "user32.dll" ( _
  ByVal nIndex As Integer) As Integer
Private Const SM_CXVSCROLL = 2
 
' Breite der Scrollbar
Dim sbWidth As Integer = GetSystemMetrics(SM_CXVSCROLL)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de