Mß prvek zobrazen² scrollbar ?

Postup:
Private Declare Function GetWindowLong Lib "user32" Alias _
    "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const GWL_STYLE = (-16)
Const WS_VSCROLL = &H200000
Const WS_HSCROLL = &H100000

Function HasHorizontalScrollbar(ctrl As Control) As Boolean

    HasHorizontalScrollbar = (GetWindowLong(ctrl.hwnd, _
        GWL_STYLE) And WS_HSCROLL)

End Function

Function HasVerticalScrollbar(ctrl As Control) As Boolean

    HasVerticalScrollbar = (GetWindowLong(ctrl.hwnd, GWL_STYLE) And _
         WS_VSCROLL)
End Function

Zp∞t