If you wish to make the Scrollbars hidden, use the ShowScrollBar API function.


Code:
Private Declare Function ShowScrollBar Lib "user32" _ 
(ByVal hwnd As Long, ByVal wBar As Long, _ 
ByVal bShow As Long) As Long 

Private Const SB_BOTH = 3 
Private Const SB_HORZ = 0 
Private Const SB_VERT = 1 


Private Sub List1_Scroll()
ShowScrollBar List1.hwnd, 1, False
End Sub