Determine if a control's scrollbars are visible

Private Function IsScrollBarVisible(ControlHwnd As Long) As Boolean
Dim blnResult As Boolean
Dim wndStyle As Long
  
  'Retrieve the window style of the control.
  wndStyle = GetWindowLong(ControlHwnd, GWL_STYLE)
  
  'Test if the vertical scroll bar style is present
  'in the window style, indicating that a vertical
  'scroll bar is visible.
  If (wndStyle And WS_VSCROLL) <> 0 Then
    blnResult = True
  End If
  
  ' Test if the horizontal scroll bar style is present
  ' in the window style, indicating that a horizontal
  ' scroll bar is visible.
  If (wndStyle And WS_HSCROLL) <> 0 Then
    blnResult = True
  End If
  
  IsScrollBarVisible = blnResult
End Function