Private Const GWL_STYLE = (-16)

Private Const WS_HSCROLL = &H100000

Private Const WS_VSCROLL = &H200000

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

 

Dim wndStyle As Long

Private Sub Form_Load()

   wndStyle = GetWindowLong(List1.hwnd, GWL_STYLE)

   If (wndStyle And WS_HSCROLL) <> 0 Then

      MsgBox "A horizontal scroll bar is visible."

   Else

      MsgBox "A horizontal scroll bar is NOT visible."

   End If

   If (wndStyle And WS_VSCROLL) <> 0 Then

      MsgBox "A vertical scroll bar is visible."

   Else

      MsgBox "A vertical scroll bar is NOT visible."

   End If

End Sub