Вот маленькая функция, котороя может пригодиться в работе, когда необходимо определить ширину скрола.
Старался избежать АПИ.
Обычно вызываю на событии открытие, тогда мельтешение не заметно.
Но если требуется определить в уже открытой форме, то нужно раскомментировать строки с .Painting =
'---------------------------------------------------------------------------------------
' Procedure : GetScrollBarsWidth
' DateTime : 22.06.2006 17:36
' Author : avegorov
' Purpose : Определяет ширину скрола
'---------------------------------------------------------------------------------------
Public Function GetScrollBarsWidth(frm As Form) As Integer
Dim bytScrollBars As Byte